A voir également:
- Comparer valeur d'une cellule au nom d'une autre feuille
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
Bonjour,
une facon de faire
copie infos dans onglet trouve, adaptez le nom feuil1 et pour Plage_Poste, C1 ou C2
Sub Bouton1_Clic()
une facon de faire
copie infos dans onglet trouve, adaptez le nom feuil1 et pour Plage_Poste, C1 ou C2
Sub Bouton1_Clic()
Dim derlig, Plage_Poste As Range, cel As Range, derlig_P
Application.ScreenUpdating = False
'derniere cellule non vide feuil1
derlig = Worksheets("feuil1").Range("C" & Rows.Count).End(xlUp).Row
'definition plage de recherche
Set Plage_Poste = Worksheets("feuil1").Range("C2:C" & derlig)
'boucle de copie
For Each cel In Plage_Poste
'derniere cellule non vide onglet en cours
derlig_P = Worksheets(cel.Value).Range("C" & Rows.Count).End(xlUp).Row + 1
'copie infos
Worksheets("feuil1").Range("A" & cel.Row & ":C" & cel.Row).Copy Worksheets(cel.Value).Range("A" & derlig_P)
Next cel
Application.ScreenUpdating = False
End Sub
J'ai quelques questions : pourquoi lors de la définition de la plage de recherche vous saisissez "C2:C" ?
Autrement la macro bug dans le bloque de "copie des infos " . Et je ne vois pas du tout d'où vient le problème !
Avez vous des idées
Merci encore
Benoit
pourquoi lors de la définition de la plage de recherche vous saisissez "C2:C" ?
C'est bien dans cette colonne qu'il y a les noms d'onglet !!!!!
Autrement la macro bug dans le bloque de "copie des infos " Quelle erreur ??????
A+