Macro excel
picard
-
tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention -
tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Quelqu'un peut-il me dire ce qu'il faut changer à cette macro pour qu'elle fonctionne?
Sub Macro1()
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Feuil1" Or ws.Name = "Feuil3" Or ws.Name = "Feuil4" Then
If Cells(2, 1) <> "" Then Cells(1, 1).Copy Destination:=Cells(4, 5)
End If
Next ws
End Sub
Merci.
Quelqu'un peut-il me dire ce qu'il faut changer à cette macro pour qu'elle fonctionne?
Sub Macro1()
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Feuil1" Or ws.Name = "Feuil3" Or ws.Name = "Feuil4" Then
If Cells(2, 1) <> "" Then Cells(1, 1).Copy Destination:=Cells(4, 5)
End If
Next ws
End Sub
Merci.
A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
bjr,
Elle fonction bien !!!!
le contenue de la cellule (4,5) est remplacer par la cellule (1,1) dans les feuils 1,3, et 4 si la cellule (2,1) n'est pas vide.
Elle fonction bien !!!!
le contenue de la cellule (4,5) est remplacer par la cellule (1,1) dans les feuils 1,3, et 4 si la cellule (2,1) n'est pas vide.
