Stocker nombre trouvé par une macro

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:

---

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.

Code:

---

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 #

Bonjour,

Sinon tu assigne une variable à cette fonction :

Code:

---

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:

---

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

---

Merci pour la mise en forme.

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

Citation:

---

Envoyé par Nico Chg

Bonjour,

Sinon tu assigne une variable à cette fonction :

Code:

---

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:

---

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 :)

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.

bonjour,

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

Code:

---

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:

---

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:

---

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à !

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

Code:

---

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).

Code:

---

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 ...

Citation:

---

Envoyé par Nico Chg

Code:

---

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.

Exactement !

J'ai oublier un "End With" dans le post d'origine, si tu utilise ce que j'ai écris, n'oublie pas de le rajouter ! (Post d'origine modifié)

J'ai fait quasiment pareil ca marche nikel merci,

Code:

---

ActiveChart.SeriesCollection(1).Values = "='CA + MARGE par client'!$D$3:$D$20"

---

Juste ce dernier problème de mise en forme pour la séléction des valeurs (je fais un tableaux avec ce que j ai crée), que ca aille de D3 à ma dernière ligne remplie.

Comme pour les Range :

Code:

---

ActiveChart.SeriesCollection(1).Values = "='CA + MARGE par client'!$D$3:$D$" & Lig

---

Parfait merci beaucoup, je passe le sujet en résolu.