Copie données vers première colonne vide

Bonjour toute le monde,

Encore moi

Je sollicite de nouveau votre aide pour une petite macro pour remplir mon fichier avec des données sur la première colonne vide d'une ligne donnée.

Je vous ai mis a dispo le fichier avec les explications de ce que je souhaiterai obtenir, ce sera plus compréhensif pour tout le monde.

Merci !

Pakal

Bonsoir

Essaie avec ce code

Sub test()
Range("B2:B20").Copy Cells(24, Cells(24, Columns.Count).End(xlToLeft).Column + 1)
End Sub

Cela suppose que la plage B2 à B20 ne change pas évidemment.

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

MERCI Dan

Sa fonctionne !

Bonjour,

Je reviens avec mon petit code qui fonctionne avec l'aide de Dan

J'ai affecté un bouton à cette macro et malgré le fait que la plage B2:B20 soit vide, la macro copie tout de même les données vides et décale du coup les prochaines données sur le 2e tableau...en laissant une colonne vide....

Comment empêcher de cette macro s'exécute tant que la plage B2:B20 est vide ?

La copie ne doit se réaliser que si au moins une des cellules de la plage B2:B20 est remplie...

Merci de vos lumières !

Bonjour

Je ne sais pas en quoi cela gène, on copie du vide donc la prochaine copie sera au bon endroit

Mais tu peux essayer ça

Sub test()
  If Application.CountA(Range("B2:B20")) > 0 Then
    Range("B2:B20").Copy Cells(24, Cells(24, Columns.Count).End(xlToLeft).Column + 1)
  End If
End Sub

Bonjour Banzai,

Malheureusement la macro continue à copier quand même la plage vide

Et si jamais je remet des données dans la plage B2:B20 la macro laisse une colonne vide...on dirait qu'elle ne vois pas que c'est vide....

Faut-il passer par des copie de valeurs au lieu de la plage ? et si oui quel est l'argument ?

Bonjour

Une question : Ta colonne contient des formules ?

Si oui il faut connaitre la formule pour envisager une autre solution

Si pas de formules je ne sais pas

En fait c'est le résultat d'une copie depuis un TCD...je sais cela fais beaucoup de copie et je me complique peut être la tâche

Le résultat de la plage B2:B20 est le résultat de cette macro :

Sub Copy()

Sheets("Tableau").Select --> je sélectionne ma feuille Tableau

Range("B73:B105").Select

Selection.Copy

Sheets("Datas").Select --> je selectionne ma feuille Datas

Range("B2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks_

:=False, Transpose:=False

End Sub

Bonsoir

Pakal31 a écrit :

Malheureusement la macro continue à copier quand même la plage vide

Bon il faut que tu envoies une copie du fichier dont les cellules vides sont recopiées

Parce que c'est quand même bizarre

Tu t'assures bien que le fichier que tu vas joindre à ce défaut

Bon, je crois que je me suis embrouillé dans mes codes ...

Après une grosse pause j'ai refais mes codes en repartant de zéro et visiblement le bug que j'avais ne se produit plus

En tout cas merci Banzai de ton aide

Je vais poursuivre mes optimisations et c'est certains, je reviendrai demander de l'aide car VBA et moi on n'est pas encore très ami ami

Bonne nuit !