VBA Loop Until
Résolu
jonathan master
-
Leahkim Messages postés 3219 Statut Membre -
Leahkim Messages postés 3219 Statut Membre -
Bonjour,
J'ai un problème avec une macro: j'aimerais copier les lignes d'une feuille dans une autre jusqu'à ce qu'il n'y ait plus rien à copier (cellules vides), J'ai essayé de faire une macro du style 'loop until" mais ça ne marche pas!
Pouvez-vous me dire comment résoudre mon erreur de compilation?
Merci d'avance
Nota bene; je ne connais pas grande chose en VBA, soyez gentils svp!
Sub copier()
'
' copier Macro
' Macro enregistrée le 16/09/2008 par KMBSF
'
' Touche de raccourci du clavier: Ctrl+a
'
Do
Range("A:F").Select
Selection.Copy
Sheets("Releve").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Agios").Select
Loop Until IsEmpty(Range("A:F").Offset)
End Sub
J'ai un problème avec une macro: j'aimerais copier les lignes d'une feuille dans une autre jusqu'à ce qu'il n'y ait plus rien à copier (cellules vides), J'ai essayé de faire une macro du style 'loop until" mais ça ne marche pas!
Pouvez-vous me dire comment résoudre mon erreur de compilation?
Merci d'avance
Nota bene; je ne connais pas grande chose en VBA, soyez gentils svp!
Sub copier()
'
' copier Macro
' Macro enregistrée le 16/09/2008 par KMBSF
'
' Touche de raccourci du clavier: Ctrl+a
'
Do
Range("A:F").Select
Selection.Copy
Sheets("Releve").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Agios").Select
Loop Until IsEmpty(Range("A:F").Offset)
End Sub
A voir également:
- VBA Loop Until
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Fruity loop - Télécharger - Édition & Montage
- Vba range avec variable ✓ - Forum VB / VBA
10 réponses
Rebonjour
Tu as raison, il faut peut être que je commence par dire ce que je veux faire, ça se trouve j'ai pas fait ce qu'il fallait...
Donc, je veux tout simplement copier les 'lignes' (comprises entre la colonne A et F) dans une autre feuille. Le problème étant que les nombre de lignes change à chaque fois d'où mon idée de faire un loop until pour que le copier-coller s'arrête au moment où il y a plus rien sur les lignes
J'espère avoir été clair
Merci d'avance
Tu as raison, il faut peut être que je commence par dire ce que je veux faire, ça se trouve j'ai pas fait ce qu'il fallait...
Donc, je veux tout simplement copier les 'lignes' (comprises entre la colonne A et F) dans une autre feuille. Le problème étant que les nombre de lignes change à chaque fois d'où mon idée de faire un loop until pour que le copier-coller s'arrête au moment où il y a plus rien sur les lignes
J'espère avoir été clair
Merci d'avance
oui, cette fois c'est clair.
Je peux te rédiger une macro assez vite si les cases de chaques lignes entre A et F sont toujours pleine.
Sinon, y a t il une des colonnes qui a toujours une valeur quelconque quand il faut copier la ligne
Je peux te rédiger une macro assez vite si les cases de chaques lignes entre A et F sont toujours pleine.
Sinon, y a t il une des colonnes qui a toujours une valeur quelconque quand il faut copier la ligne
Voici les colonnes:
A B C D E F
Date Référence Libellé Débit Crédit Echéance
Les colonnes D et E ne sont pas remplies au même temps (s'il y a un débit, y a pas de crédit et vice-versa). Sinon pour le reste les cellules sont toujours renseignées.
Je rajouterais que c'est pas grave si la macro copie-colle une cellule vide dans la nouvelle feuille, puisque mon but et simplement de transporter les cellules remplies telles quelles
Merci à nouveau
A B C D E F
Date Référence Libellé Débit Crédit Echéance
Les colonnes D et E ne sont pas remplies au même temps (s'il y a un débit, y a pas de crédit et vice-versa). Sinon pour le reste les cellules sont toujours renseignées.
Je rajouterais que c'est pas grave si la macro copie-colle une cellule vide dans la nouvelle feuille, puisque mon but et simplement de transporter les cellules remplies telles quelles
Merci à nouveau
Merci Leahkim
Par contre, est-ce que je laisse ta macro et je rajoute "End sub" à la fin? ou faut-il rajouter une autre mention?
voilà pour mon côté débutant en VBA :(
Merci
Par contre, est-ce que je laisse ta macro et je rajoute "End sub" à la fin? ou faut-il rajouter une autre mention?
voilà pour mon côté débutant en VBA :(
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Sub copier()
'
' copier Macro
' Macro enregistrée le 16/09/2008 par KMBSF
'
' Touche de raccourci du clavier: Ctrl+a
'
While (Cells(A, 1).Value <> "")
Cells(A, 1).entirerows.Select
Selection.Copy
Sheets("Releve").Select
Cells(1, 1).Select
ActiveSheet.Paste
Sheets("Agios").Select
A = A + 1
End Sub
effectivement, j'avais fait une erreur
'
' copier Macro
' Macro enregistrée le 16/09/2008 par KMBSF
'
' Touche de raccourci du clavier: Ctrl+a
'
While (Cells(A, 1).Value <> "")
Cells(A, 1).entirerows.Select
Selection.Copy
Sheets("Releve").Select
Cells(1, 1).Select
ActiveSheet.Paste
Sheets("Agios").Select
A = A + 1
End Sub
effectivement, j'avais fait une erreur
ta macro n'est pas claire du tout... Pour moi, elle copie toujours la meme chose. Quelles sont les cellules que tu veux copier ?
no souci, voici ta macro !
While (Cells(A, 1) <> "")
Cells(A, 1).entirerows.Select
Selection.Copy
Sheets("Releve").Select
Cells(1, 1).Select
ActiveSheet.Paste
Sheets("Agios").Select
A = A + 1
Wend
While (Cells(A, 1) <> "")
Cells(A, 1).entirerows.Select
Selection.Copy
Sheets("Releve").Select
Cells(1, 1).Select
ActiveSheet.Paste
Sheets("Agios").Select
A = A + 1
Wend
