XL 2010 Regrouper plusieurs onglet

Scorpio

XLDnaute Impliqué
Salut à tous et joyeuse fête de Pâques,
J'aurais juste un petit problème avec un code VBA, et comme je ne suis pas un champion, j'aurais bien aimé avoir un petit coup de main, en vous remerciant d'avance et en notant bien que rien n'est urgent. J'ai trouvé ce code sur le net, mais je n'arrive pas à le modifier, voilà
Merci d'avance et a+++++
 

Pièces jointes

  • RegrouperOnglet.xlsm
    30.2 KB · Affichages: 36

CHALET53

XLDnaute Barbatruc
Code:
Sub recap()
rep = InputBox("Indiquer 1 nom !", "Saisir un nom de Société !!!")
If rep = "" Then Exit Sub
'on efface anciens données
Feuil1.[A2:P30].ClearContents
ligne = 2
'boucle du 2eme à l'avant dernier onglet
For onglet = 2 To Sheets.Count - 1

With Sheets(onglet)

nc = .[IV2].End(1).Column 'nombre colonne
bas = .[A30].End(3).Row 'nb lignes
For lig = 2 To bas
If .Cells(lig, 1) = rep Then
Feuil1.Cells(ligne, 1) = .Cells(lig, 1)

Feuil1.Cells(ligne, 2) = .Cells(lig, 2)
Feuil1.Cells(ligne, 3) = .Cells(lig, 4)
Feuil1.Cells(ligne, 4) = .Cells(lig, 13)

ligne = ligne + 1
End If
Next
End With
Next
End Sub

Essaie ce code
a+
 

Scorpio

XLDnaute Impliqué
Salut Chalet53
Ho, ho, super, merci beaucoup, ça fonctionne, se qui compte, pour un Débutant comme moi en VBA.
Merci d'avoir passé quelques minutes en ce jour de Pâques pour mon soucis.
A+++, et bonne fin de journée de Pâques
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant