Microsoft 365 Afficher nombres

  • Initiateur de la discussion Initiateur de la discussion Claudiuss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Claudiuss

XLDnaute Nouveau
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.
 

Pièces jointes

Bonsoir Claudiuss, Job,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

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.
 

Pièces jointes

Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
1
Affichages
393
Réponses
5
Affichages
528
Réponses
3
Affichages
507
Retour