Juste pour ma gouverne : Comment reinitialiser une variable

Bonjour,

J'utilise une variable (i - un nombre de lignes) dans une boucle pour effectuer des procédures de calcul et mécaniquement de suppression de lignes.

Du coup mon nombre de lignes n'est plus le même et je voudrais réutiliser cette même variable (i) pour l'utiliser dans d'autres procédures (Transfert de ces nouvelles lignes dans un autres classeurs Excel)

Est ce possible?

Merci de vos éclairages

Citation:

---

Envoyé par ALEX80800

Bonjour,

J'utilise une variable (i - un nombre de lignes) dans une boucle pour effectuer des procédures de calcul et mécaniquement de suppression de lignes.

Du coup mon nombre de lignes n'est plus le même et je voudrais réutiliser cette même variable (i) pour l'utiliser dans d'autres procédures (Transfert de ces nouvelles lignes dans un autres classeurs Excel)

---

Bonjour,

Pour supprimer des lignes à partir d'une boucle, il vous faut commencer par la fin. Un exemple dans ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TestBoucle()   Dim I As Long Dim LigneDetitre As Long   LigneDeTitre = 1 For I = ActiveSheet.UsedRange.Rows.Count To LigneDetitre + 1 Step -1   If I > 10 Then Rows(I).Delete   Next I   End Sub

---

Cordialement.

Merci Eric pour ta réponse mais sauf erreur de ma part ça ne répond pas à ma question à savoir réinitialiser une variable

Car la variable en début de code = 1272

Et après traitement de procédure le nombre de ligne est réduit à 22

Donc je dois basculer 22 lignes dans un autre classeur
Je ne demande pas le code de ces étapes mais seulement si i peut être réinitialiser pour qu’amrès avoir eu la valeur 1272 se réinitialise et enregistre la valeur 22

Citation:

---

Envoyé par ALEX80800

Car la variable en début de code = 1272

Et après traitement de procédure le nombre de ligne est réduit à 22

Donc je dois basculer 22 lignes dans un autre classeur
Je ne demande pas le code de ces étapes mais seulement si i peut être réinitialiser pour qu’amrès avoir eu la valeur 1272 se réinitialise et enregistre la valeur 22

---

Il suffit de donner à la variable, la valeur que vous souhaitez :

Code:

---

I = 22

---

Cordialement.

Si j'ai bien compris,

Code:

---

1 2 3 4 5

i = Range("A" & Rows.Count).End(xlUp).Row 'Procédure de calcul et suppresion de ligne..... 'Reinitialisation de la variable i = Range("A" & Rows.Count).End(xlUp).Row 'Procédure de transfert de ligne dans l'autre fichier excel

---

C'est cela?

C'est bien cela.

Cordialement.

Un grand Grand GRand GRAnd GRANd GRAND merci Eric