Regrouper les valeurs dans des cellules contigues

pierrejean

XLDnaute Barbatruc

• 13 Octobre 2014

• #2

Re : Regrouper les valeurs dans des cellules contigues

Bonjour Perceval

Vois si cela te convient

 

Pièces jointes

• Copie de Essai.xlsm

  29.5 KB · Affichages: 51
• Copie de Essai.xlsm

  29.5 KB · Affichages: 56
• Copie de Essai.xlsm

  29.5 KB · Affichages: 55

Vote positif 0 Vote négatif

P

Perceval64

XLDnaute Occasionnel

• 13 Octobre 2014

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Octobre 2014

• #4

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

 

Vote positif 0 Vote négatif

P

Perceval64

XLDnaute Occasionnel

• 15 Octobre 2014

• #5

Re : Regrouper les valeurs dans des cellules contigues

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

Bonne soirée.
JLuc64

 

Vote positif 0 Vote négatif