Microsoft 365 Afficher nombres

[Claudiuss]

Bonjour,

Excusez-moi, j'étais parti sur de mauvais pieds. je suis noviste en vba excel.
Je voulais afficher plutôt par code vba tous les nombres qui sont juste en dessous des cellule café.
Prière m'en excuser
Merci beaucoup.

 

[job75]

Il était inutile de créer un nouveau fil et c'est toujours confus, je laisse tomber.

 

[sylvanu]

Bonsoir Claudiuss, Job,
Un essai en PJ avec :

Private Sub CommandButton1_Click()
Dim café, IndewW As Integer, LastRow As Integer, L As Integer, C As Integer
café = RGB(217, 151, 149)
IndexW = 1
Range("K:K").ClearContents
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For C = 1 To 5
    For L = 1 To LastRow
        If Cells(L, C).Interior.Color = café Then
            Cells(IndexW, 11) = Cells(L + 1, C)
            IndexW = IndexW + 1
        End If
    Next L
Next C
End Sub

La couleur peut être modifiée par la variable Café si la couleur change dans le tableau.

 

[Claudiuss]

Merci beaucoup pour votre aide, mais quand je click sur le bouton rien ne se passe

 

[Claudiuss]

Il était inutile de créer un nouveau fil et c'est toujours confus, je laisse tomber.

 

[Claudiuss]

Merci beaucoup quand même pour votre aide

 

[sylvanu]

Vous êtes novice.
En fait la liste est effacée puis reconstruite.
Mais s'il n'y a pas de changement, cela va trop vite pour que vous voyez quelque chose.
En PJ j'ai rajouté un bouton Effacer pour l'exemple.
Vous appuyez sur Effacer : La liste est vide
Vous appuyez sur Afficher : La liste est reconstruite.

 

[job75]

@sylvanu chez moi non plus ça ne fonctionne pas : les codes RGB ne sont pas corrects.

 

[Claudiuss]

Vous êtes novice.
En fait la liste est effacée puis reconstruite.
Mais s'il n'y a pas de changement, cela va trop vite pour que vous voyez quelque chose.
En PJ j'ai rajouté un bouton Effacer pour l'exemple.
Vous appuyez sur Effacer : La liste est vide
Vous appuyez sur Afficher : La liste est reconstruite.

 

[Claudiuss]

Merci beaucoup. ça marche.
svp possible que ça affiche des doublons?

 

[sylvanu]

@Claudiuss,
Avec une MFC en PJ.
@job,
Le code RGB est me semble correct, et ça fonctionne chez moi.

 

[Claudiuss]

Excusez-moi de vous déranger mais quand je click sur le bouton effacer ça efface mais si je click sur afficher ça n'affiche pas

 

[Claudiuss]

Vraiment je vous en suis très reconnaissant. Merci du fond du coeur

 

[Claudiuss]

Pour l'affichage, je vais me débrouiller. Merci encore une fois

 

[Claudiuss]

@sylvanu chez moi non plus ça ne fonctionne pas : les codes RGB ne sont pas corrects.