Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Hugues
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hugues

XLDnaute Impliqué
Bonjour Le Forum

Dans une procédure j'ai intégré un boucle

derligne = ws2.Range("E65536").End(xlUp).Row


For a = 1 To derligne.....

Next a

"a" correspond au nombre de lignes d'une feuille.

Mon souci est le suivant ; la dernière ligne va varier en fonction du traitement au sein de la boucle. En effet, en fonction de certains évènements j'insère un certain nombre de ligne, qui a pour conséquence de déplacer la fin de la feuille.

Comment faire pour intégrer ce rajout de lignes, donc de modifier la valeur de "derligne" au fur e à mesure du déroulement de la procédure ?

Merci par avance pour votre soutien.

Cordialement,

HUgues
 
Re : Boucle

bonjour Hugues
un exemple
derligne = ws2.Range("E65536").End(xlUp).Row

For a = 1 To derligne.....
if condition=true then
ws2.Range("A" & a)=x
ou si tu dois ajouter
l=ws2.Range("E65536").End(xlUp).Row+1
ws2.Range("A" & l)=x
endif
Next a
 
Re : Boucle

Bonsoir à tous,

une autre possibilité est de commencer par la dernière ligne et de "remonter" jusqu'au début.
Les lignes ajoutées après la ligne traitée ne viendront pas perturber la concordance entre N° ligne et indice de boucle.

For a = derligne To 1 Step -1

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
10
Affichages
512
Réponses
11
Affichages
426
Réponses
23
Affichages
682
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
906
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…