XL 2010 Regrouper plusieurs onglet

Scorpio · 16 Avril 2017

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+++++

CHALET53 · 16 Avril 2017

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 · 16 Avril 2017

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

XL 2010 Regrouper plusieurs onglet

Scorpio

XLDnaute Impliqué

Pièces jointes

CHALET53

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

Discussions similaires