Bonjou
quelqu'un peut il m'aider
j'ai en classeur Excel avec 3 feuilles
avec la formule toute simple = ( égale) ,des infos de la feuilles 1 se retrouvent donc copiés sur les feuilles 2 et 3
mon soucis est le suivant: Comment lorsque je rempli par la suite une cellule de la feuille 1 avec une couleur; cette même couleur se copie aussi dans les feuilles 2 et
Merci de votre aid
Yve
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
En sélectionnant tous les onglets du classeur (premier onglet puis touche Maj puis dernier onglet -tous les onglets doivent être blanchis), tout ce qui est fait sur une feuille est reproduit sur les autres.
JB
Bonjour,
En sélectionnant tous les onglets du classeur (premier onglet puis
touche Maj puis dernier onglet -tous les onglets doivent être
blanchis), tout ce qui est fait sur une feuille est reproduit sur les
autres.
En sélectionnant tous les onglets du classeur (premier onglet puis touche Maj puis dernier onglet -tous les onglets doivent être blanchis), tout ce qui est fait sur une feuille est reproduit sur les autres.
JB
JB
Bonjour,
http://cjoint.com/?cvlub5wXtm
Dim mémoAddresse Dim mémoContenu Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each s In ActiveWorkbook.Sheets If s.Name <> ActiveSheet.Name Then Set c = s.Cells.Find(mémoContenu, LookIn:=xlValues) If Not c Is Nothing And Not IsEmpty(mémoContenu) Then premAdr = c.Address Do c.Interior.ColorIndex = Range(mémoAddresse).Interior.ColorIndex Set c = s.Cells.FindNext(c) Loop While Not c Is Nothing And c.Address <> premAdr End If End If Next s mémoAddresse = Target.Address mémoContenu = Target.Value End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?cvlub5wXtm
Dim mémoAddresse
Dim mémoContenu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each s In ActiveWorkbook.Sheets
If s.Name <> ActiveSheet.Name Then
Set c = s.Cells.Find(mémoContenu, LookIn:=xlValues)
If Not c Is Nothing And Not IsEmpty(mémoContenu) Then
premAdr = c.Address
Do
c.Interior.ColorIndex =
Range(mémoAddresse).Interior.ColorIndex
Set c = s.Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premAdr
End If
End If
Next s
mémoAddresse = Target.Address
mémoContenu = Target.Value
End Sub
Dim mémoAddresse Dim mémoContenu Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each s In ActiveWorkbook.Sheets If s.Name <> ActiveSheet.Name Then Set c = s.Cells.Find(mémoContenu, LookIn:=xlValues) If Not c Is Nothing And Not IsEmpty(mémoContenu) Then premAdr = c.Address Do c.Interior.ColorIndex = Range(mémoAddresse).Interior.ColorIndex Set c = s.Cells.FindNext(c) Loop While Not c Is Nothing And c.Address <> premAdr End If End If Next s mémoAddresse = Target.Address mémoContenu = Target.Value End Sub
