Copier horizontalement les valeurs d'un champ

[Egruat]

Bonjour,

Je cherche à sélectionner les valeurs d'un champ, à éviter les erreurs si celles-ci n'existent pas et à les copier horizontalement.

Je n'arrive pas à les copier horizontalement, les unes à côté des autres.

Pourriez-vous m'aider?

Cordialement.

 

[hoerwind]

Re : Copier horizontalement les valeurs d'un champ

Bonjour,

Sélectionner B1:B4 - Copier - Sélectionner C10 - Collage spécial - Transposer - OK

 

[Victor21]

Re : Copier horizontalement les valeurs d'un champ

Bonjour, Egruat.

Sub Macro1()

    [B2:B4].Copy
    [C10].PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

Cordialement,

 

[Egruat]

Re : Copier horizontalement les valeurs d'un champ

Merci mais en fait, je souhaiterai que la macro lise les valeurs du champ voiture et
- si une valeur n'existe pas, qu'il n'y ait pas de message d'erreur, et que la valeur soit indiquée dans la 1ère cellule
- puis la lecture des valeurs continue et que la 2ème valeur existante se mette à côté de la 1ère valeur inscrite

et ceci jusqu'à temps que toutes les valeurs du champ aient été lue et vérifiée.

Ainsi dans l'exemple il y a 3 valeurs mais la macro pourra en mettre deux s'il y a un message d'erreur.