Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

plage mouvante en vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion denisR
  • 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 !

S'inscrire
D

denisR

XLDnaute Nouveau
Bonjour

Voilà mon probleme
j'ai une boucle FOR...NEXT
cette boucle insere des lignes dans un tableau
la condition finale se modifie donc au fur et à mesure de l'avancement du tableau mais le FOR NEXT ne se modifie pas
exemple ci dessous

For numligne = 2 To Lastli 'boucle pour toutes les lignes
Lastli = Range("a2").End(xlDown).Row 'recalcule nouvelle longueur du tableau
If Range("AB" & numligne).Value = "LAST" Then 'teste valeur cellule
Range(Rows(numligne + 1), Rows(numligne + 1)).Select 'insere une ligne
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next numligne

dans le code ci dessus comme j'insere des lignes je pensais recalculer dans ma boucle la valeur de lastli
mais ceci ne fonctionne pas

quelqu'un aurait il une idée ?

merci de votre aide

cordialement

D.ROUSSEL
 
Trier par date Trier par votes
Bonjour à tous
Denis , dans ta boucle lors de ta condition si elle s'avère , tu fais un "exit for" après avoir inséré ta ligne,
ensuite après le next tu recalcules ta lastli ( sous un autre nom) et tu compares à celle du début
si # tu reviens au début ( par un goto avec label) et tu assignes ton lastli à la nouvelle valeur
ex: derlig =Range("a2").End(xlDown).Row ,
if derlig <> lastli then goto deb
'retour au début
deb:
lastli= derlig
A toi d'adapter
 
Vote positif 0 Vote négatif
Bonjour.
Pouvez vous essayer ça :
VB: 
Dim L As Long
For L = Range("A2").End(xlDown).Row To 2 Step -1
   If Cells(L, "AB").Value = "LAST" Then
      Rows(L + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      End If
   Next L
 
Vote positif 0 Vote négatif
Merci dranreb
cela fonctionne bien
en effet passer en revue toutes les lignes en partant de la fin permet de contourner l'augmentation du nombre de lignes
Mais comment ne pas y avoir pensé : suis je bete !
Merci encore pour votre contribution
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
510
TooFatBoy
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
828
TooFatBoy
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
699
Piment
P
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
776
piga25
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
767
Lu76Fer
Y
  • Question Question
Microsoft 365 Insérer des lignes selon variable
Réponses
1
Affichages
526
gbinforme
G
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
711
fanou06
F
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
558
Phil69970
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
992
salma_hayek
S
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
566
crocrocro
C
A
  • Résolu(e)
Microsoft 365 Vider des listes déroulantes en cascade
Réponses
6
Affichages
807
Franc58
F
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
498
fanch55
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
1 K
TooFatBoy
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
2 K
Phil69970
T
  • Résolu(e)
Microsoft 365 optimisation d'un programme en utilisant la fonction Array
Réponses
5
Affichages
747
Thomas_1
T
F
  • Question Question
Microsoft 365 Répéter en boucle plusieurs actions VBA
Réponses
7
Affichages
1 K
Deadpool_CC
I
  • Question Question
Microsoft 365 insères une ligne après chaque compte avec un sous.total
Réponses
2
Affichages
700
iliess
I
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…