Macro excel .......
Hors ligneClauclau42 Le 21/01/2009 à 16:57 Profil de Clauclau42 Configuration de Clauclau42

Bon, ancienne macro solutionnée .....
Je n'arrive juste pas à dire à ma macro de se terminer à la ligne 167 et de ne pas faire le reste de la feuille qui est vide en plus ....
Qq'un pourrait-il m'aider ??
Merciiiiiii
--
Clau
Hors ligneBrako Le 21/01/2009 à 17:24 Profil de Brako Configuration de Brako

Bonjour !

Pourrais tu poster ta macros que je puisse voir ?
--
Ce qui donne une éventuelle matière à suspecter une quelconque propagande ...
Hors ligneTigene Le 21/01/2009 à 17:38 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
bonjour
c'est exactement, ce que je voulais demander

@+
--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Hors ligneTigene Le 21/01/2009 à 18:36 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
hé bien tu peux faire comme avec le reste de la macro, tu rajoutes une autre condition.
du genre  
désolé je connais mal le VBA mais l'algoritme serait le suivant :
si "numéro de ligne" < 167 passer à la ligne suivante sinon stop
ou une boucle :
for ligne = 1 to 167
faire la macro
L=L+1
next
end


ça t'inspire ?

@+
--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Hors ligneClauclau42 Le 21/01/2009 à 18:41 Profil de Clauclau42 Configuration de Clauclau42

Oui ça m'inspire lol
Merc ... mais en fait j'ai les écritues de bases mais je n'arrive ps à les appliquer à ma macro ..... il y a qq chose que je dois mal faire !!
Vous verrez ma macro demain vous pourrez donc mieux me dire ce que vos en pensez !!
Merciiiii
--
Clau
Hors ligneMarculinos Le 21/01/2009 à 20:51 Profil de Marculinos Configuration de Marculinos

Viconaute Modérateur
Hello,

La ligne 167 est toujours la dernière ligne?

Si ce numéro de ligne était variable, il faudrait alors recourir à une routine de vérification de la dernière ligne. Par exemple :



L=1
Cells(L,1).select

Do until activecell.value=""
    Cells(L,1).select
    L=L+1
Loop

L=L-1


Du coup, la variable L contient la valeur numéraire de la dernière ligne non vide.

@+
Hors ligneClauclau42 Le 22/01/2009 à 16:01 Profil de Clauclau42 Configuration de Clauclau42

Re coucou à tous !!
Tout d'abord merci à vous pour vos réponses qui m'ont été utiles !!!

Ma macro finale, pour ceux qui l'ont demandé, est la suivante :

Worksheets("PLAN ENTREPOT").Select

    Cells.Select

    Range("G4").Activate

    Selection.Interior.ColorIndex = xlNone

    Range("B6").Select

    Do Until ActiveCell = 20

    If ActiveCell = 1 Then

    Rows(ActiveCell.Row).Select

    With Selection.Interior

        .ColorIndex = 3

        .Pattern = xlSolid

    ActiveCell.Offset(-1, 1).Activate

    End With

    Else

    ActiveCell.Offset(-1, 0).Activate

    End If

    Loop

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Selection.Interior.ColorIndex = xlNone

    Columns("A:B").Select

    Selection.Interior.ColorIndex = xlNone

    Range("A1").Select

End Sub



Voilà j'espère que ça en aidera certains

A+++
--
Clau
Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels