Macro excel

Fermé

picard - 25 janv. 2010 à 17:07
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 25 janv. 2010 à 17:47

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.

A voir également:

Macro excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

einsteinn Messages postés 8 Date d'inscription dimanche 24 janvier 2010 Statut Membre Dernière intervention 27 janvier 2010
25 janv. 2010 à 17:26

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.

Réponse 2 / 2

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
25 janv. 2010 à 17:47

Salut,
Réponse ici

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro