Discussion :

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

Est ce possible?

Merci de vos éclairages

[Invité]

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 :

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

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.

[ALEX80800]

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

[Invité]

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 :

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

I = 22

Cordialement.

[ALEX80800]

Si j'ai bien compris,

Code :

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

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?

[Invité]

C'est bien cela.

Cordialement.