Copier horizontalement les valeurs d'un champ

Egruat · 10 Février 2011

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 · 10 Février 2011

Re : Copier horizontalement les valeurs d'un champ

Bonjour,

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

Victor21 · 10 Février 2011

Re : Copier horizontalement les valeurs d'un champ

Bonjour, Egruat.

Code:

Sub Macro1()

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

Cordialement,

Egruat · 10 Février 2011

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.

Copier horizontalement les valeurs d'un champ

Egruat

XLDnaute Occasionnel

Pièces jointes

hoerwind

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

Egruat

XLDnaute Occasionnel

Discussions similaires

Copier horizontalement les valeurs d'un champ

Egruat

XLDnaute Occasionnel

Pièces jointes

hoerwind

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

Egruat

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency