Discussion :

[Faustine_]

Bonjour,

Je bloque sur la mise en place de ma macro,
je souhaite trouver jusqu'à quelle ligne A les cellules sont remplies donc j ai trouver cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub boucle()
'
' boucle Macro
'
Dim Lig As Long
 
Lig = Sheets("CA + MARGE par client").Range("A3").End(xlDown).Row
MsgBox Lig
End Sub

(Je ne sais pas utiliser la mise en forme de code sur le forum par contre.)
Au final suite à la valeur trouver grace à cette macro je voudrais stocker le nombre pour mettre en place une autre macro sur les lignes contenant du texte par exemple si il me trouve 20 j'aurais ma nouvelle macro qui se fera à chaque fois jusqu'à cette ligne.

Merci je sais pas si c'est bien clair par contre je débute.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub boucle()
'
' boucle Macro
'
Dim Lig As Long
 
Lig = Sheets("CA + MARGE par client").range("A" & cells.Rows.Count).End(xlUp).Row+1
Sheets("CA + MARGE par client").Range("A" & lig)="toto"
End Sub

surligne la totalité de ton code et click sur #

[Nico Chg]

Bonjour,

Sinon tu assigne une variable à cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim lastLine as single
lastLine = Sheets("CA + MARGE par client").range("A" & cells.Rows.Count).End(xlUp).Row+1

Et après tu continue tes macro avec la variable lastLine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim lastLine as single
lastLine = Sheets("CA + MARGE par client").range("A" & cells.Rows.Count).End(xlUp).Row+1
 
'Do some stuff with lastLine
 
msgbox lastLine
Sheets("CA + MARGE par client").Range("A" & lastLine)="toto"
debug.print lastLine

[Faustine_]

Bonjour,

Sinon tu assigne une variable à cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim lastLine as single
lastLine = Sheets("CA + MARGE par client").range("A" & cells.Rows.Count).End(xlUp).Row+1

Et après tu continue tes macro avec la variable lastLine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim lastLine as single
lastLine = Sheets("CA + MARGE par client").range("A" & cells.Rows.Count).End(xlUp).Row+1
 
'Do some stuff with lastLine
 
msgbox lastLine
Sheets("CA + MARGE par client").Range("A" & lastLine)="toto"
debug.print lastLine

Je vais essayer merci de votre aide

[Faustine_]

Merci pour la mise en forme.

Sinon le code que vous m'avez mis stocke la valeur dans "toto" ?

[Nico Chg]

TON code stock la valeur dans Lig.

Le code de rdurupt va écrire "toto" dans la dernière ligne de la colonne A

Le mien va afficher une fenêtre avec le numéro de la dernière ligne, va écrire "toto" dans la dernière ligne de la colonne A, et va écrire le numéro de la dernière ligne dans la console. A toi de voir ce que tu veux faire après.

[Slooby]

bonjour,

Ton code est tout bon, tu as tout écrit pour utiliser le nombre de lignes dans des boucles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub boucle()
Dim Lig As Long
 
Lig = Sheets("CA + MARGE par client").Range("A3").End(xlDown).Row
'Lig prend comme valeur le numéro de la dernière ligne avec des valeurs en partant de A3
 
End Sub

Dans ce cas, tu as simplement à définir en début de module (hors de ta Sub boucle) ta variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Lig As Long
 
Sub maSub()
Lig = Sheets("CA + MARGE par client").Range("A3").End(xlDown).Row
End Sub

Et là, tu as ta variable Lig qui vaut 20 (comme dans ton exemple), tu peux l'utiliser directement dans d'autres Sub:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub boucle2()
 
For i=1 to Lig
Sheets("CA + MARGE par client").Range("B" & i).Value = "Ligne " & i 
'on aura en colonne B: Ligne 1, Ligne 2 etc ... jusqu'à Ligne 20 
Next i
 
End Sub

Voilà !

[Faustine_]

Arf je sèche un peu pour utiliser tout ca pour faire par exemple cela à la suite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Range("D3").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
    Range("D3").Select
    Selection.AutoFill Destination:=Range("D3:D20"), Type:=xlFillDefault
    Range("D3:D20").Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    Selection.NumberFormat = "0.00%"

En remplacant bien entendu le D20 par D(ligne trouvée précedemment).

[Nico Chg]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Range("D3").FormulaR1C1 = "=RC[-1]/RC[-2]"
    Range("D3").AutoFill Destination:=Range("D3:D" & Lig), Type:=xlFillDefault
    With Range("D3:D" & Lig)
    .Style = "Percent"
    .NumberFormat = "0.0%"
    .NumberFormat = "0.00%"
    End With

Que c'est beau l'enregistreur de macro ...

[Faustine_]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Range("D3").FormulaR1C1 = "=RC[-1]/RC[-2]"
    Range("D3").AutoFill Destination:=Range("D3:D" & Lig), Type:=xlFillDefault
    With Range("D3:D" & Lig)
    .Style = "Percent"
    .NumberFormat = "0.0%"
    .NumberFormat = "0.00%"

Que c'est beau l'enregistreur de macro ...

Merci et en effet belle invention pour débuter.