Couleur dans cellule

gilbert_RGI

XLDnaute Barbatruc

• 9 Mai 2012

• #16

Re : Couleur dans cellule

PatLac à dit:

Super, Merci beaucoup !
Si je peux abuser encore un peu, je voudrais étendre la couleur au cellule B et C, et inscrire en D "test" ....
Ce serait compliqué à coder pour vous ?
Merci d'avance !

Cliquez pour agrandir...

essayez ceci

Case "AF-"
.Interior.ColorIndex = 27
ActiveCell.Offset(0, 1).Interior.ColorIndex = 27
ActiveCell.Offset(0, 2).Interior.ColorIndex = 27
ActiveCell.Offset(0, 3).Value = "Test"

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 10 Mai 2012

• #17

Re : Couleur dans cellule

Bonjour Gilbert_RGI !
J´ai surement fait une erreur dans l´intégration du bout de code.
Je mets le fichier modifié, ci-joint, à votre bienveillance.
Encore merci.

 

Pièces jointes

• Kopie von Copie de MEFC_5C-1.xlsm

  15.1 KB · Affichages: 26
• Kopie von Copie de MEFC_5C-1.xlsm

  15.1 KB · Affichages: 33
• Kopie von Copie de MEFC_5C-1.xlsm

  15.1 KB · Affichages: 28

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 10 Mai 2012

• #18

Re : Couleur dans cellule

bonjour voilà le fichier modifié

 

Pièces jointes

• Kopie von Copie de MEFC_5C-1.xlsm

  19.2 KB · Affichages: 24
• Kopie von Copie de MEFC_5C-1.xlsm

  19.2 KB · Affichages: 25
• Kopie von Copie de MEFC_5C-1.xlsm

  19.2 KB · Affichages: 23

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 10 Mai 2012

• #19

Re : Couleur dans cellule

Merci !
J'ai juste un petit soucis : lorsque je rentre une valeur en A1 par exemple, la cellule passe en jaune, c'est donc OK, mais celle qui suit si j'utilise la tabulation (B1), reste blanche alors que C1 et D1 passe jaune.
C'est à dire que j'ai une cellule blanche au millieu des jaunes. 🙁

Valeur toujours saisie en A1, si j'utilise "entrée", c'est celle en A2 qui reste blanche, et le "coloriage" se déporte sur la ligne du dessous, en A2, B2, C2
Mon excel serait-il mal réglé à la base ?

Merci ...et excusez-moi de vous embêter.
Salutations

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 11 Mai 2012

• #20

Re : Couleur dans cellule

Bonsoir Gilbert !
J'ai trouvé la solution à mon dernier problème ....mais j'en ai un autre :
- J'ai déja un "worksheet_change" dans la feuille et si j'en intègre un second, j'ai une ambiguïté sur les noms.

Existe-t-il une astuce ?
Merci.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 11 Mai 2012

• #21

Re : Couleur dans cellule

Il ne doit y en avoir qu'un seul

donc integrer les codes dans un seul suivant les priorités d'execution

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 11 Mai 2012

• #22

Re : Couleur dans cellule

Merci !
J'ai essayé mais sans succès, du fait que j'ai 2 fois " Private Sub Worksheet_Change(ByVal Target As Excel.Range)".
L'un rentre en conflit avec l'autre, même en spécifiant la priorité

Est-il possible d'écrire ce code autrement ...avec un autre "début " ?

Merci

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Mai 2012

• #23

Re : Couleur dans cellule

Salut tous

Si... tu as plusieurs cas :

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
  If conditon 1 Then
    action 1
  End If
  If conditon 2 Then
    action 2
  End IF
  If conditon 3 Then
    action 3
  End If
End Sub

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 11 Mai 2012

• #24

Re : Couleur dans cellule

Il y a un truc que j'ai du rater, je vous mets le code que j'ai ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
If conditon 1 Then
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("E:E25")) Is Nothing Then
With Target
Select Case Left(Target.Value, 3)
Case "AF-"
.Interior.ColorIndex = 27
With ActiveCell
.Offset(0, 0).Interior.ColorIndex = 27
.Offset(0, 1).Interior.ColorIndex = 27
.Offset(0, 2).Interior.ColorIndex = 27
.Offset(0, 3).Value = "AF-TEILE"
End With
End Select
End With
End If
End Sub End If
If conditon 2 Then
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Dim test
Dim valeur
Dim i
valeur = Target
If Not Intersect(Target, Range("E1:E65535")) Is Nothing Then
With Sheets("DB")
test = 0
For i = 1 To .Range("A65535").End(xlUp).Row
If valeur = .Cells(i, 1).Value Then test = 1
Next i
End With
If test = 0 Then UserForm2.Show
End If
End Sub End IF

Cliquez pour agrandir...

Merci

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Mai 2012

• #25

Re : Couleur dans cellule

Re

Si... j'ai compris correctement

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  'condition 1
  If Not Intersect(Target, Range("E5:E25")) Is Nothing Then
    If Target Like "AF-*" Then
      Target.Resize(1, 4).Interior.ColorIndex = 27
      Target.Offset(0, 3) = "AF-TEILE"
    End If
  End If
  'condition 2
  Dim Quoi As Range
  If Target.Column = 5 Then
    With Sheets("DB")
      Set Quoi = .Columns(1).Find(Target)
      If Not Quoi Is Nothing Then UserForm2.Show 'enlever le Not selon le cas
    End With
  End If
End Sub

sinon, joins un fichier exemple.

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 11 Mai 2012

• #26

Re : Couleur dans cellule

C'est de la BOMBE !
J'ai enlevé le "not" car le UF se déclenchait à chaque fois, et ça fonctionne comme je le désirais.
Merci encore pour votre aide.
Bonne soirée et bon week-end .....
Amicales Salutations.

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 14 Mai 2012

• #27

Re : Couleur dans cellule

Bonjour .
Je me permet de revenir vous voir car j´ai un soucis :
Une fois la feuille protégée, le code ne fonctionne plus.
Est-il possible de lever la protection provisoirement ?
Ci-dessous le fichier.
Merci pour votre aide.
Salutations.

 

Pièces jointes

• Mappe1.xlsm

  16.4 KB · Affichages: 23
• Mappe1.xlsm

  16.4 KB · Affichages: 26
• Mappe1.xlsm

  16.4 KB · Affichages: 27

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Mai 2012

• #28

Re : Couleur dans cellule

Bonjour à tous,

avec ceci:

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.UnProtect Password:="toto"
  'condition 1
  If Not Intersect(Target, Range("B1:B8")) Is Nothing Then
    If Target Like "AF-*" Then
      Target.Resize(1, 4).Interior.ColorIndex = 27
      Target.Offset(0, 4) = "AF-TEILE"
    End If
  End If
  'condition 2
  Dim Est As Range
  If Target.Column = 5 Then
    With Sheets("DB")
      Set Est = .Columns(1).Find(Target)
      If Est Is Nothing Then UserForm2.Show 'enlever le Not selon le cas
    End With
  End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
End Sub

à+
Philippe

Edit: Mea Culpa
Je viens de modifier UnProtect au lieu de Protect au début du code

 

Dernière édition: 14 Mai 2012

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 14 Mai 2012

• #29

Re : Couleur dans cellule

Bonsoir !
J´ai toujours le meme message ...
En fait j´avais déja essayé avec ce bout de code que j´ai récupéré sur un autre post du forum, mais ca marchait encore moins bien .... 🙁 là on avance un peu ... 🙂
J´ai mis l´exemple avec le code modifié ci-dessous ,et le UF.
Merci

 

Pièces jointes

• Mappe1.xlsm

  19.7 KB · Affichages: 23
• Mappe1.xlsm

  19.7 KB · Affichages: 20
• Mappe1.xlsm

  19.7 KB · Affichages: 26

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Mai 2012

• #30

Re : Couleur dans cellule

salut tous

Il faut donc enlever la protection.Si... tu veux le faire essaie plutôt en début :

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ActiveSheet.Unprotect Password:="toto"
...

 

Vote positif 0 Vote négatif