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
A voir également:
- Macro VBA Excel copie cellule selon condition
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Copie cachée - 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!
@+
