valeur selon format

[Demouret]

Bonjour à tous

J'essaie en cliquant sur un bouton d'attribuer une valeur à une cellule selon le motif d'une autre cellule

J'ai bien esseyé ca mais il ne se passe rien ;-)...

Si quelqu'un veut bien me filer la main sur ce coup

Merci ...

Private Sub CommandButton1_Click()
Dim cell As Range

For Each cell In Range("G17:Q74")
cell.Select
With Selection.Interior
If cell.Interior.Pattern = xlGrey8 Then
cell.Offset(0, 20) = 100
ElseIf Selection.Interior.Pattern = xlGrey25 Then
cell.Offset(0, 20) = 200

End If
End With
Next
End Sub

Désolé pour le code Pas compris les balises :-(

 

[Etienne2323]

Re : valeur selon format

Salut Demouret,
voici un code qui pourrait remplir ta demande. Je l'ai commenté pour que tu puisses bien comprendre ce qui s'y passe.

Private Sub CommandButton1_Click()
Dim cell As Range
Dim Ma_Couleur as Integer

For Each cell In Range("G17:Q74")
    'On va aller chercher la couleur de la cellule actuelle
    Ma_Couleur = cell.Interior.ColorIndex
    Select Case Ma_Couleur
        'Si le numero de la couleur est compris entre 1 et 30
        'alors inscrit le chiffre 100, 20 colonnes plus loin
        Case 1 To 30
            cell.Offset(0, 20) = 100
        'Si le numero de la couleur est compris entre 31 et 56
        'alors inscrit le chiffre 200, 20 colonnes plus loin
        Case 31 To 56
            cell.Offset(0, 20) = 200
        Case Else
    End Select
Next
    
End Sub

À noter, tu peux ajouter des Case dans le Select Case tant que tu veux. Par exemple, si tu voulais que ça s'applique uniquement a un numéro de couleur, alors tu pourrais inscrire par exemple.

Case 6

Aussi, pour connaite le numéro de la couleur, tu peux procéder comme ceci. Sélectionne avec ton curseur la cellule qui contient la couleur, retourne dans le code VBA de ton bouton et exécute le pas-à-pas. La variable Ma_Couleur comprendra le numéro de la couleur !

En espérant que ça te donne un petit coup de main,

Cordialement,

Étienne

 

[JCGL]

Re : valeur selon format

Bonjour à tous,

Peux-tu essayer en remplaçant "Grey" par "Gray" dans les" Pattern" ?

A+ à tous

 

[Gorfael]

Re : valeur selon format

Salut Demouret et le forum
Quand tu cliques sur "l'icone" #, 2 balises apparaissent
[Code ] mets ton code entre [ /Code]

Private Sub CommandButton1_Click()
Dim Cell As Range

For Each Cell In Range("G17:Q74")
    With Cell.Interior
        If .Pattern = xlGray8 Then
            Cell.Offset(0, 20) = 100
        ElseIf .Pattern = xlGray25 Then
            Cell.Offset(0, 20) = 200
        End If
    End With
Next

Pour chaque cellule de G17 à Q74
si la cellule à un motif, mettre la même cellule de AK17 à AU74 à la valeur 100 ou 200
A+

Edit : heureusement qu'il y avait JCGL, j'étais passé à côté de l'erreur. Va falloir que je change de lunettes

 

[Demouret]

Re : valeur selon format

Merci, mille merci...

Tout fonctionne très bien
Même "gray" au lieu de "grey"
comme quoi une faute d'aurtaugraffe ;-))

Même compris pour les balises code...

Bon we à vous tous

 

[JCGL]

Re : valeur selon format

Bonjour à tous,
Salut Étienne,
Salut Gorfaël,

Même "gray" au lieu de "grey"

Je serais tenté de remplacer le "Même" par "Surtout"...

A+ à tous