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

XL 2019 Macro : création d'une boucle avec tableau

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

SCORP95

XLDnaute Nouveau
Bonjour à tous !

Je bloque sur la mise en place d'une boucle. Dans le fichier ci-joint, il y a un tableau 4 colonnes.
Je souhaitais créer une boucle qui permette de vérifier pour chaque ligne du tableau si la première cellule ( colonne "date") est vide. Si elle est non vide, alors on passe à la ligne suivante. Si elle est vide, alors on va sur la seconde cellule de la ligne ( colonne " libellé de l'opé ") , coupe l'ensemble des données et la rajoute dans la cellule juste au-dessus. [ On part du principe que la première cellule de la première ligne est forcément non nul] . Puis, répéter l'opération, jusqu'à à la dernière ligne du tableau. Voici un exemple imagé


Début

Fin

Si un connaisseur pouvez m'aider, ce serait super aimable !

Merci d'avance.

Scorp
 

Pièces jointes

Solution
Bonsoir Scorp,
Un essai en PJ avec :
VB: 
Sub Compresse()
    Application.ScreenUpdating = False      ' Fige écran
    DL = Range("C65500").End(xlUp).Row      ' Calcul dernière ligne
    For L = DL To 6 Step -1                 ' pour toutes les lignes
        If Cells(L, "B") = "" Then          ' Si B est vide
            Cells(L - 1, "C") = Cells(L - 1, "C") & "  [ " & Cells(L, "C") & " ]"
            Cells(L, "B").EntireRow.Delete  ' On supprime la ligne
        End If
    Next L
End Sub
Si la matrice est vraiment très grande, alors il faut passer par des arrays pour accélérer. Plus complexe mais plus rapide.
Trier par date Trier par votes
Bonsoir Scorp,
Un essai en PJ avec :
VB: 
Sub Compresse()
    Application.ScreenUpdating = False      ' Fige écran
    DL = Range("C65500").End(xlUp).Row      ' Calcul dernière ligne
    For L = DL To 6 Step -1                 ' pour toutes les lignes
        If Cells(L, "B") = "" Then          ' Si B est vide
            Cells(L - 1, "C") = Cells(L - 1, "C") & "  [ " & Cells(L, "C") & " ]"
            Cells(L, "B").EntireRow.Delete  ' On supprime la ligne
        End If
    Next L
End Sub
Si la matrice est vraiment très grande, alors il faut passer par des arrays pour accélérer. Plus complexe mais plus rapide.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonsoir @sylvanu,

Franchement...

Vous êtes un génie !!! 1000 mercis pour votre rapidité. La Macro est juste superbe et pour la petite suppression de ligne vide, vous avez lu dans mes pensées 😉

Belle soirée.
 
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

  • Résolu(e)
XL 2021 Soucis d’effacement dans ma colonne AE
2
Réponses
23
Affichages
362
ARRU
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
278
mimednejma
M
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
253
tuti
T
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
242
piga25
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
286
AtTheOne
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
282
AtTheOne
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
222
Lu76Fer
F
  • Résolu(e)
XL 2019 Création de cases à cocher dynamiquement
2
Réponses
22
Affichages
419
mapomme
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
230
LegVal
L
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
937
fanfan38
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
277
Phil69970
Y
  • Question Question
Microsoft 365 Calcul du CMP d'une action à l'intérieur d'un portefeuille
Réponses
2
Affichages
113
youssefcha
Y
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
150
sylvanu
M
  • Question Question
Microsoft 365 Erreur avec une formule UNIQUE
Réponses
9
Affichages
393
TooFatBoy
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
143
Yogean
Y
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
224
olivier Clech
O
R
  • Question Question
Autres Carré magique de bachet avec vba.
Réponses
2
Affichages
661
kiki29
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
240
Danyk01
D
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
3 K
patricktoulon
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
386
Anthony_51
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…