ignorer lignes vides avec " For i "

charette63 · 17 Novembre 2011

Bonjour à toutes et tous,

j'ai créé un code qui permet le transfert de données entre differentes feuilles d'un classeur:

Code:

Sub test12()
Dim i As Integer
  For i = 6 to 45
Worksheets(Range("F" & i).Text).Range("Z" & Range("E" & i).Text + 5) = Range("B" & i)
Worksheets(Range("F" & i).Text).Range("AA" & Range("E" & i).Text + 5) = Range("A" & i)  Next i
End sub

Le code fonctionne très bien lorsque le tableau de la ligne 6 to 45 est complet, mais lorsque certaines lignes sont vides, j'ai un message d'erreur.

Je cherche donc une ligne de code qui permet d'ignorer les lignes vides et qui permet d'effectuer la macro jusqu'à le ligne 45.
Petite précision supplèmentaire, les lignes peuvent etre en partie complètées, se serait la colonne " E " qui devrait etre prise en compte.

Explication plus simple: Si Range("E" & i) = "" then passer à la ligne suivante.

Pouvez vous m'aider

merci
cordialement
Thierry

pierrejean · 17 Novembre 2011

Re : ignorer lignes vides avec " For i "

Bonjour Thierry

A tester:

Code:

[FONT=monospace]Sub test12()
Dim i As Integer
For i = 6 to 45[/FONT]
[FONT=monospace]If Range("E" & i) = "" then
Worksheets(Range("F" & i).Text).Range("Z" & Range("E" & i).Text + 5) = Range("B" & i)
Worksheets(Range("F" & i).Text).Range("AA" & Range("E" & i).Text + 5) = Range("A" & i)[/FONT]
[FONT=monospace]End if[/FONT]
[FONT=monospace]Next i
End sub[/FONT]

charette63 · 17 Novembre 2011

Re : ignorer lignes vides avec " For i "

salut pierrejean, sympa de t'interesser à mon problème.

Malheureusement ce que tu me proposes ne fonctionne pas, à chaque ligne dans laquelle j'inserais le "FONT", un message apparait et me signale qu'il manque une instruction (ou quelque chose dans le genre), et pour celui de la fin de macro (après End Sub) un message me dit que seul les commentaires sont autorisés aprés End Sub. Les lignes dans lesquelles j'ai introduit "tes" nouvelles "commandes" restent en rouge. J'ai bien essayé de déplacer "tes" commandes, notament après "Sub test12() et avant End Sub mais rien de concluant.

Je continue mes recherche

merci

Guest · 17 Novembre 2011

Re : ignorer lignes vides avec " For i "

bonjour,

Pierre-Jean🙂🙂🙂 étant déconnecté:

Code:

Sub test12()
    Dim i As Integer
    For i = 6 To 45
        If Range("E" & i) <> "" Then
        Worksheets(Range("F" & i).Text).Range("Z" & Range("E" & i).Text + 5) = Range("B" & i)
        Worksheets(Range("F" & i).Text).Range("AA" & Range("E" & i).Text + 5) = Range("A" & i)
        End If
    Next i
End Sub

Il s'agissait d'une erreur de copier/coller dans l'éditeur de post. Les [Font] et autres n'appartiennent pas au code de la macro

A+

pierrejean · 17 Novembre 2011

Re : ignorer lignes vides avec " For i "

Re

Merci Hasco 🙂
Effectivement, j'ai du participer aux joies du menage et quitter precipitemment apres avoir coupé/collé

charette63 · 17 Novembre 2011

Re : ignorer lignes vides avec " For i "

Super, ça fonctionne à merveille.

je me disais bien au sujet des "Font" etc.. que je n'avais pas encore vu de pareils codes, mais étant (très) novice en vba, je me réjouissais déjà d'apprendre quelque chose de nouveau, bin c'est raté (lol)

un grand merci à vous deux, bon après-midi

cordialement

Thierry

ignorer lignes vides avec " For i "

charette63

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

charette63

XLDnaute Occasionnel

Guest

Guest

pierrejean

XLDnaute Barbatruc

charette63

XLDnaute Occasionnel

Discussions similaires

ignorer lignes vides avec " For i "

charette63

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

charette63

XLDnaute Occasionnel

Guest

Guest

pierrejean

XLDnaute Barbatruc

charette63

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency