Bonjour,
voici mon problème :
je dois comparer les cellules D6 d'une feuille Feuil1 et d'une feuille Archive1. le nom de la feuille Feuil1 reste le même mais celui de la 2è feuille (Archive1) peut évoluer (archive2,...). Si la cellule D6 de la Feuil1 est différente de la cellule D6 de la feuille Archive 1, alors je dois utiliser une mise en forme conditionnelle (exemple: la cellule est mise en valeur avec un fond orange). même combat pour D7, D8,... jusqu'à EQ300 !!!
mon problème est double :
- la mise en forme conditionnelle entre 2 feuilles ne fonctionnent que si j'utilisent un gestionnaire de nom
- je dois pouvoir automatiser le nommage des cellules sur une plage donnée.
Je ne suis ni développeuse ni informaticienne et mon code qui ne fonctionne pas vraiment :
Sub Macro7()
'
' Macro7 Macro
'
Dim i As Integer
Dim j As Integer
Dim NomChamps As String
Dim Cellule As String
Dim macellule As String
NomChamps = "ARCHIVE" & Cells(5, 1).Value
Cellule = Cells(5 + i, j + 3)
For i = 1 To 2
For j = 1 To 2
macellule = "=CELL(""adresse"")"
ActiveWorkbook.Names.Add Name:=NomChamps & macellule, RefersToR1C1:=macellule
ActiveWorkbook.Names(NomChamps & macellule).Comment = ""
Next i
Next j
End Sub
ça bugge !!! qqn peut-il m'aider ?
Merci !!!!!!
voici mon problème :
je dois comparer les cellules D6 d'une feuille Feuil1 et d'une feuille Archive1. le nom de la feuille Feuil1 reste le même mais celui de la 2è feuille (Archive1) peut évoluer (archive2,...). Si la cellule D6 de la Feuil1 est différente de la cellule D6 de la feuille Archive 1, alors je dois utiliser une mise en forme conditionnelle (exemple: la cellule est mise en valeur avec un fond orange). même combat pour D7, D8,... jusqu'à EQ300 !!!
mon problème est double :
- la mise en forme conditionnelle entre 2 feuilles ne fonctionnent que si j'utilisent un gestionnaire de nom
- je dois pouvoir automatiser le nommage des cellules sur une plage donnée.
Je ne suis ni développeuse ni informaticienne et mon code qui ne fonctionne pas vraiment :
Sub Macro7()
'
' Macro7 Macro
'
Dim i As Integer
Dim j As Integer
Dim NomChamps As String
Dim Cellule As String
Dim macellule As String
NomChamps = "ARCHIVE" & Cells(5, 1).Value
Cellule = Cells(5 + i, j + 3)
For i = 1 To 2
For j = 1 To 2
macellule = "=CELL(""adresse"")"
ActiveWorkbook.Names.Add Name:=NomChamps & macellule, RefersToR1C1:=macellule
ActiveWorkbook.Names(NomChamps & macellule).Comment = ""
Next i
Next j
End Sub
ça bugge !!! qqn peut-il m'aider ?
Merci !!!!!!