Discussion :

[Skwal N]

Bonjour,

Depuis quelques semaines, je me lance dans un petit programme VBA pour rendre plus rapide la gestion des inscriptions de participants pour des soirées.

Mon problème est le suivant :

De temps en temps il arrive d'avoir des annulations, alors j'aimerai pouvoir avoir une macro permettant de rechercher le nom et le prénom de la personne concernée (nom sur la colonne D, et prénom sur la colonne E), et qu'en fonction de ces 2 valeurs, colorier toute la ligne des colonnes A à Z.

Ce qui veut dire que la ligne coloriée doit avoir obligatoirement ces 2 valeurs dans ses colonnes.

Le numéro de la ligne pouvant varier en fonction du client.

Pour effectuer ma recherche j'ai procédé comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton_OK_Click()
'Déclaration des variables
    Dim Nom As String, Prenom As String, Colonne_D As Range, Colonne_E As Range
 
'Recherche du nom
    Nom = TextBox_Nom.Value
    Set Colonne_D = ActiveSheets.Columns(4)
 
'Recherche du prénom
    Prenom = TextBox_Prenom.Value
    Set Colonne_E = ActiveSheets.Columns(5)
End Sub

Pour la suite, je n'ai aucune idée des divers codes pour effectuer la coloration de la ligne possédant ces 2 valeurs...

Je vous en remercie d'avance.

Cordialement,

Skwal N.

[EngueEngue]

Dix millions de façons de faire. En voila una

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton_OK_Click()
    Nom = TextBox_Nom.Value
    prenom = TextBox_Prenom.Value
    With ActiveSheet
        For i = 2 To .Range("D" & .Rows.Count).End(xlUp).Row
            If Nom = .Range("D" & i) And prenom = .Range("E" & i) Then
                .Range("D" & i).EntireRow.Interior.Color = RGB(100, 0, 0)
            End If
        Next i
    End With
End Sub

[Skwal N]

Merci énormément pour cette rapide et efficace!

Cependant, comme dit dans mon sujet, j'aimerai que ça colore la ligne uniquement des colonnes A jusqu'à Z.

Est-ce possible?

Je n'arrive pas à trouver le code qui pourrait traduire ma demande.

Encore merci.

[casefayere]

EngueEngue t'a mis sur la voie, tu changes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("D" & i).EntireRow.Interior.Color = RGB(100, 0, 0)

pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A" & i,"Z" & i).Interior.Color = RGB(100, 0, 0)

[Skwal N]

En effet cela fonctionne lorsque l'on retire le "EntireRow", chose que j'avais oublier de retirer en essayant la méthode que tu viens de me soumettre!

Merci énormément pour votre aide précieuse!

Cordialement,

Skwal N