Contenu récent par xdbeloug

Re : vba sur mise à jour de cellule Salut fhoest, Voici le code de couleur() Sub Couleur(val As Range, pos) Dim i val.Offset(0, pos) = UCase(val.Offset(0, pos)) Dim D As Object Set D = CreateObject("scripting.dictionary") D("T") = 3: D("A") = 5: D("C") = 10: D("G") = 1 For i = 1...

Bonjour à tous, je fais executer un code apres la mise à jour d'une cellule avec le code ci dessous Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C3:C50")) Is Nothing Then Call Couleur End If tout fonctionne bien si je modifie le contenu des...