Discussion :

[Willoo]

Bonjour,

Je débute en VBA, je suis face à un problème.

Je vais tenter d'être clair dans ma description. J'aimerais pouvoir inserer une ligne en function de 2 critères.
Quand ma cellule de la colonne A est vide et que la cellule de la colonne B est rempli alors il me faut inserer une ligne.

Exemple :

Colonne A          Colonne B
AAA                   BBBB
AAA                   BBBB
<Vide>              BBBB
AAA                   BBBB
AAA                   BBBB
AAA                   BBBB
<Vide>              BBBB
AAA                   BBBB

Résultat voulu :

AAA                  BBBB
AAA                  BBBB

<Vide>             BBBB
AAA                  BBBB
AAA                  BBBB
AAA                  BBBB

<Vide>            BBBB
AAA                 BBBB

J'ai tenté le code suivi mais ca ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
Dim InsLigne As Integer
 
For InsLigne = 1 To 100
    If MRISheet.Range("A" & InsLigne) = "" And MRISheet.Range("B" & InsLigne) <> "" Then
       MRISheet.Range("B" & InsLigne).EntireRow.Insert Shift:=xlShiftDown
 
    End If
 
    Next InsLigne

Merci d'avance pour votre aide !

[unparia]

Bonjour,
je te suggère ce qui ressemblerait à ceci (écrit à la va-vite) :

Code :

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

1
2
3
4
5
6
7
8
9
Dim dl As Long, plage As Range, plagevide As Range
dl = Range("A" & Rows.Count).End(xlUp).Row
Set plage = Range("A1:A" & dl)
Set plagevide = plage.SpecialCells(xlCellTypeBlanks)
If Not plagevide Is Nothing Then
  For Each c In plagevide.Cells
    If Cells(c.Row, 2).Value <> "" Then Rows(c.Row).Insert 1
  Next
End If

[Willoo]

Bonjour unparia,

Code :

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

 For Each c In plagevide.Cells

Sur cette ligne à quoi correspond "c" ?
Est-ce une variable que je dois définir ?

Car en laissant le code tel quel cela ne fonctionne pas

Merci à toi.

[unparia]

c est chacune des cellules de la plage parcourue
Si cela ne fonctionne pas, tu as peut-être plusieurs lignes successives vides en colonne A. Si tel est le cas, précise-le et je modifierai en conséquence.

[Willoo]

Classeur Test.xlsm

ci-joint le classeur pour que cela soit plus parlant.

J'ai peut être aussi effectuer une mauvaise manipulation.

Merci pour ton aide unparia

[unparia]

Désolé, mais (je ne cesserai jamais de le rappeler) je n'ouvre JAMAIS un classeur tiers (j'ai mes raisons) !
Ce code (modifié) marche sans faille chez moi :

Code :

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

1
2
3
4
5
6
dl = Range("A" & Rows.Count).End(xlUp).Row
For i = dl To 1 Step -1
  If Range("A" & i).Text = "" And Range("B" & i).Text <> "" Then
    Rows(i).Insert 1
  End If
Next

pour faire ce que tu dis vouloir faire, les données étant en colonnes A et B

[Philippe Tulliez]

Bonjour,

Car en laissant le code tel quel cela ne fonctionne pas

Il est important de préciser ce qui ne fonctionne pas.
Soit le résultat escompté n'est pas à la hauteur de tes attentes, soit le problème provient d'un arrêt du programme accompagné d'un message d'erreur et dans ce cas, il est important de communiquer, le n° de l'erreur, le message et le numéro de la ligne où a eu lieu cette erreur.
Cela facilite tellement la vie.

A mon avis, le problème provient du fait que la variable objet c n'est pas déclarée et comme tu as sans doute l'Opion Explicit, le programme s'arrête.

[Willoo]

Désolé unparia je ne savais pas pour les classeurs tiers (je suis nouveau )

C'est exactement le résultat voulu et je t'en remercie !!!

J'ai une petite question.

Que signifie le "Step -1" de ta boucle For ?

[unparia]

Que signifie le "Step -1" de ta boucle For

Je me précipiterais à ta place pour ouvrir mon aide VBA à la rubrique "For...Next, instruction"
Je me vois mal expliquer mieux ce qu'est ce paramètre Step (sauf à considérer, ce que je n'estime pas nécessaire, que cette aide a mal été rédigée).
Si problème résolu : je te prie de libérer cette discussion comme il se doit (un clic sur le tag résolu).

[Willoo]

Parfait j’espérais avoir un début d'explication mais ce n'est pas grave.

En tout cas merci pour ton aide qui m'a été précieuse.

Le problème est résolu !

Bonne journée.

[unparia]

j’espérais avoir un début d'explication mais ce n'est pas grave.

Enfin quoi ...
fais donc ces 2 essais élémentaires et très parlants :

Code :

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

1
2
3
for i = 1 to 10
  msgbox i
next

et

Code :

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

1
2
3
for i = 10 to 1 step -1
  msgbox i
next

ces deux boucles ne parcourent pas dans le même sens, non ?
Lorsque l'on ajoute ou supprime des articles en boucle, la meilleure manière de ne pas se faire des croche-pattes avec les indexes est d'aller de bas en haut.
"meilleure" ne signifie pas "unique". on peut également utiliser une boucle for each, mais assortie alors d'un compteur additionnel.
Voilà tout.

[Willoo]

Bonjour,

Il est important de préciser ce qui ne fonctionne pas. Soit le résultat escompté n'est pas à la hauteur de tes attentes, soit le problème et dans ce cas, il est important de communiquer, le n° de l'erreur, le message et le numéro de la ligne où a eu lieu cette erreur.
Cela facilité tellement la vie.

Merci Philippe je saurai à l'avenir

[Willoo]

Lorsque l'on ajoute ou supprime des articles en boucle, la meilleure manière de ne pas se faire des croche-pattes avec les indexes est d'aller de bas en haut.
"meilleure" ne signifie pas "unique". on peut également utiliser une boucle for each, mais assortie alors d'un compteur additionnel.
Voilà tout.

Je ne savais pas que cela était possible.

Encore merci pour tout !