Macro VBA Excel copie cellule selon condition
Fermé
brg54
Messages postés
1
Date d'inscription
vendredi 18 mai 2007
Statut
Membre
Dernière intervention
18 mai 2007
-
18 mai 2007 à 15:56
ptibenou - 18 mai 2007 à 16:35
ptibenou - 18 mai 2007 à 16:35
Bonjour,
Je souhaiterais de l'aide afin de créer une macro qui me trouve les cellules colorisée et vide. Et si ces deux conditions sont rempli : ensuite de me copier le contenu de la cellule du dessus pour toutes les cellules trouvée.
Je vous remercie d'avance car je piétine total
Je souhaiterais de l'aide afin de créer une macro qui me trouve les cellules colorisée et vide. Et si ces deux conditions sont rempli : ensuite de me copier le contenu de la cellule du dessus pour toutes les cellules trouvée.
Je vous remercie d'avance car je piétine total
A voir également:
- Macro VBA Excel copie cellule selon condition
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Utilisateur anonyme
18 mai 2007 à 16:23
18 mai 2007 à 16:23
Bonjour,
exemple :
Lupin
exemple :
Sub ChercheCondition()
Dim Plage As Range, Cellule As Range
Set Plage = Range("A4:B6")
For Each Cellule In Plage
If ((Cellule.Value = "") And (Cellule.Interior.ColorIndex <> xlNone)) Then
Cellule.Value = Cellule.Offset(-1, 0).Value
End If
Next Cellule
End Sub
'
Lupin
Salut,
un truc dans ce style :
Dim i As Integer
For i = 2 To 100
If Feuil1.Cells(i, 1).Interior.Color <> vbWhite Then
Feuil1.Cells(i, 1).Formula = Feuil1.Cells(1, 1).Formula
End If
Next i
Je recherche A2 à A100 si la couleur d'une cellule est différente de blanc.
Si tel est le cas je copie la formule de la cellule A1 sur les cases colorées.
Espérant répondre à ton problème!
@+
un truc dans ce style :
Dim i As Integer
For i = 2 To 100
If Feuil1.Cells(i, 1).Interior.Color <> vbWhite Then
Feuil1.Cells(i, 1).Formula = Feuil1.Cells(1, 1).Formula
End If
Next i
Je recherche A2 à A100 si la couleur d'une cellule est différente de blanc.
Si tel est le cas je copie la formule de la cellule A1 sur les cases colorées.
Espérant répondre à ton problème!
@+
