XL 2013 Aide je ne trouve pas la solution

[filtre69]

Bonjour @ tous
J'ai un fichier qui fonctionne très bien mais je dois rajouter une colonne Nom jusqu'à la j'y arrive lol .
Mais la recherche doit ce faire par le nom et plus pour le numéro de compteur.
Depuis ce matin j'essai de modifier la macro mais je n'y arrive pas.
Merci de votre aide

Cordialement

 

[sylvanu]

Bonjour Filtre,
Inputbox avec réponse string est de type 2. Certaines variables étaient mal typées. Il y avait une erreur lorsque le nom n'existait pas. La cellule verte précédente n'était pas remise blanche.
Donc je vous propose :

Sub RechercheCompteur()
Dim FeuilleActive$, NumCompteur%, RechCptr$
FeuilleActive = ActiveSheet.Name
RechCptr = Application.InputBox("Nom du client : ", "Quel nom ?", Type:=2)
With Worksheets(FeuilleActive)
    If Application.CountIf(Range("A:A"), RechCptr) > 0 Then
        NumCompteur = Application.Match(RechCptr, .Range("A:A"), 0)
        .Range("A1:A1000").Interior.Color = vbWhite
        .Range("A" & NumCompteur).Interior.Color = RGB(174, 240, 194)
    Else
        MsgBox "Nom introuvable."
    End If
End With
End Sub

 

[filtre69]

Bonjour sylvanu,
Merci pour l'aide il fonctionne peux-tu faire une petite modification?
Que la ligne complète soit en couleur.

Cordialement

 

[sylvanu]

Par contre, les autres cellules deviennent blanches, sinon il faut donner les règles de mise en couleur ( telle colonne en jaune ... ), mais les MFC seront évidemment conservées.

 

[filtre69]

Re,
Désolé je me suis mal exprimé je veux juste la couleur sur la ligne que je recherche pour la localisé plus vite..

Encore mille excuses

Merci

 

[sylvanu]

J'ai gardé toute la ligne verte sur recherche et elle devient blanc quand une cellule de cette ligne est modifiée.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A3:L1000")) Is Nothing Then
    Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = vbWhite
End If
End Sub

Mais tout est ajustable en fonction de vos besoins.

 

[filtre69]

Re,

Merci je test ce soir désolé je dois aller chercher ma petite fille.
Encore merci
Cordialement

 

[filtre69]

Re sylvanu,

Le fichier fonctionne sur excel 2013 mais chez moi sur excel 2016 j'ai cette erreur.
Peut on lui dire aller sur la ligne de recherche quand il a trouver aussi.
Merci

 

[sylvanu]

Oh, c'est rien ... il vous simplement supprimer le VBA ! 😅
Ci joint deux fichiers, xlsm comme celui d'avant et xlsb qui devrait marcher aussi.
Sinon cela devrait marcher, il n'y a rien de spécial qui soit incompatible de 2016.

 

[filtre69]

Re,
Désolé les deux me font l'erreur.
Je vais le refaire directement sur excel 2016 des que j'ai le temps.
Je te remercie pour ton aide je vais marque comme solution car il fonctionne sur excel 2013.
Un grand merci et si j'ai un soucie je te bip en urgence lol.

MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII