VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

S

simraill

XLDnaute Occasionnel

• 8 Avril 2013

• #2

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

Bonjour debidebo,
Il faudrait que tu utilise une boucle :

Code:

Sub essaimacro()

Dim i As Integer
i = 5
Worksheets("tableau 1").Range("P5:P1000").ClearContents
Application.ScreenUpdating = False

for i = 5 to 1000
If Cells(7, i) = "" Then
Cells(i, 16).Value = Cells(6, i) & " - " & Cells(8, i) & " - " & Cells(9, i) 
ElseIf Range(8, i) & Cells(9, i) = "" Then
Cells(i, 16).Value = Cells(6, i) & " - " & Cells(7, i) 
ElseIf Cells(8, i) = "" Then
Cells(i, 16).Value = Cells(6, i) & " - " & Cells(7, i) & " - " & Cells(9, i) 
ElseIf Cells(7, i) & Cells(8, i) = "" Then
Cells(i, 16).Value = Cells(6, i) & " - " & Cells(9, i) 
Else
Cells(i, 16).Value = Cells(6, i) & " - " & Cells(7, i) & " - " & Cells(8, i) & " - " & Cells(9, i)
End If
Next i

Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

D

debidebo67

XLDnaute Nouveau

• 8 Avril 2013

• #3

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

donc il faut supprimer i = i + 1 ?

il me met erreur 400, pourtant il n'y a rien de masqué !

 

Vote positif 0 Vote négatif

S

simraill

XLDnaute Occasionnel

• 8 Avril 2013

• #4

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

Oui il faut rajouter le for i = 5 to 1000 avant ton premier if,
et next i à la fin de tes if.
Cela créera une boucle qui tournera jusqu'à ce que i est atteint 1000.

 

Vote positif 0 Vote négatif

D

debidebo67

XLDnaute Nouveau

• 8 Avril 2013

• #5

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

ok, j'ai tout bon comme vous m'avez indiqué, mais il me met erreur 400 !!!

 

Vote positif 0 Vote négatif

S

simraill

XLDnaute Occasionnel

• 8 Avril 2013

• #6

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

Pourrais-tu joindre ton fichier qu'on puisse voir où il bug?!

 

Vote positif 0 Vote négatif

D

debidebo67

XLDnaute Nouveau

• 8 Avril 2013

• #7

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

ci joint le fichier avec la macro

 

Pièces jointes

• Conception massifs test1 - Copie.zip

  938.2 KB · Affichages: 169
• Conception massifs test1 - Copie.zip

  938.2 KB · Affichages: 148
• Conception massifs test1 - Copie.zip

  938.2 KB · Affichages: 259

Vote positif 0 Vote négatif

S

simraill

XLDnaute Occasionnel

• 8 Avril 2013

• #8

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

Je pense avoir trouvé l'erreur.

Sur ton premier ElseIf, tu utilise Range au lieu de Cells.
En modifiant ceci ça fonctionne chez moi.

 

Vote positif 0 Vote négatif

D

debidebo67

XLDnaute Nouveau

• 8 Avril 2013

• #9

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

ok merci beaucoup,

pour information j'avais inversé les lignes et les colonnes la bonne macro est la suivante (pour ceux qui voudront s'inspirer de la discutions pour leurs projets) :

Sub essaimacroboucle()

Dim i As Integer
i = 5
Worksheets("tableau 1").Range("P51000").ClearContents
Application.ScreenUpdating = False

For i = 5 To 1000

If Cells(7, i) = "" Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 8) & " - " & Cells(i, 9)

ElseIf Cells(i, 8) & Cells(i, 9) = "" Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7)

ElseIf Cells(i, 8) = "" Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7) & " - " & Cells(i, 9)

ElseIf Cells(i, 7) & Cells(i, 8) = "" Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 9)

Else
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7) & " - " & Cells(i, 8) & " - " & Cells(i, 9)
i = i + 1
End If
Next i
End Sub

 

Vote positif 0 Vote négatif

S

simraill

XLDnaute Occasionnel

• 8 Avril 2013

• #10

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

Content que ça marche
Par contre les lignes i = 5 et i = i +1 sont devenues inutiles.
L'initialisation de la variable est faite avec for i = 5, et l'incrémentation avec Next i.

 

Vote positif 0 Vote négatif

D

debidebo67

XLDnaute Nouveau

• 7 Mai 2013

• #11

Re : VBA excel : Regrouper données texte de plusieurs cellules dans un seule cellule

En plus d'être inutile j'ai constaté qu'elles sont source d'erreurs !

si on utilise For i = x et next i il ne faut pas ajouter i = i +1 et i = x

 

Vote positif 0 Vote négatif