Regrouper les valeurs dans des cellules contigues

Perceval64 · 13 Octobre 2014

Bonjour,

pourriez-vous me donner un coup de main sur ce petit exercice.
J'ai un tableau constitué de deux lignes. La première ligne récupère des valeurs d'un autre onglet dans des cellules non contiguës.
Je souhaiterai que ces valeurs apparaissent dans la seconde ligne au fur et à mesure et non plus avec des cellules vides.
Ci joint le petit tableau.

Merci beaucoup pour votre aide.

JLuc64

pierrejean · 13 Octobre 2014

Re : Regrouper les valeurs dans des cellules contigues

Bonjour Perceval

Vois si cela te convient

Perceval64 · 13 Octobre 2014

Re : Regrouper les valeurs dans des cellules contigues

Bonsoir Pierrejean,

merci pour cette macro, qui va me servir, mais pouvez vous m'indiquer le codage car je souhaiterai le réutiliser dans un autre tableau plus conséquent.

Encore merci pour votre aide.

Jluc64

pierrejean · 14 Octobre 2014

Re : Regrouper les valeurs dans des cellules contigues

RE

Voici le code :

Code:

Sub test()
'1ere colonne d'ecriture
colonne = 3
'ligne d'ecriture
ligne = 5
'del a colonne C a la colonne AI
For n = 3 To 35
'Si la ligne 4 n'est pas vide
 If Cells(4, n) <> "" Then
 'ecrire en ligne colonne le contenu de la cellule
  Cells(ligne, colonne) = Cells(4, n)
  ' passer a la colonne suivante
  colonne = colonne + 1
 End If
Next
End Sub

Perceval64 · 15 Octobre 2014

Re : Regrouper les valeurs dans des cellules contigues

Merci beaucoup Pierre jean, je vais en faire bon usage.

Bonne soirée.
JLuc64

Regrouper les valeurs dans des cellules contigues

Perceval64

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Perceval64

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Perceval64

XLDnaute Occasionnel

Discussions similaires