Téléchargement
illégal
Posez votre question Signaler

Boucle While excel VBA [Résolu]

Prevan - Dernière réponse le 3 août 2010 à 14:51
Bonjour,
ce forum m'a déjà retiré une épine du pied, cette fois c'est un sapin... alors voici ce que je veux faire :
Si il y a quelque chose dans la cellule A1 -> copier cette valeur et la coller en A2
Si il y a quelque chose dans la cellule B1 -> copier cette valeur et la coller en B2
Ainsi de suite jusqu'à ce que la celle #1 soit vide.
J'imagine qu'il me faudrait une boucle "While" je pense.
Genre :
While #1 not empty, do "blablah"
Mais j'ai vachement de mal à programmer en VBA.
Si quelqu'un pouvait me construire ce bout de code, je me chargerai de remplir les lignes d'actions.
Merci beaucoup !
Lire la suite 

Boucle While excel VBA »

3 réponses
Réponse
+1
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 3 août 2010 à 12:02
Bonjour, 

Dim derCol As Long
Dim i As Long

    derCol = Sheets(1).Range("IV1").End(xlToLeft).Column
    For i = 1 To derCol
        If Cells(1, i).Value <> "" Then
            Cells(2, i).Value = Cells(1, i).Value
        End If
    Next i


;o)

Ajouter un commentaire
Prevan - 3 août 2010 à 13:49
Merci beaucoup ! Ca fait tellement plaisir d'avoir une réponse en si peu de temps qui débloque.

A plus tard !
Ajouter un commentaire
Posez votre question
Ce document intitulé « Boucle While excel VBA » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?