modifier le texte dans une colonne

[Mimi]

Bonjour à tous,
Je voudrais savoir si il est possible de modifier du texte dans une colonne (G dans l'exemple) je m'explique :

dans le fichier joint, j'ai une fiche client que je rempli avec une rechercheV. Jusque là pas de problème.
Le problème c'est dans la celulle nouveau commentaire, je voudrais avec mon bouton valider, modifier le commentaire correspondant au client affiché, dans la colonne G de ma base client.

Je joint un petit fichier.

D'avance merci

Michel

 

[tototiti2008]

Re : modifier le texte dans une colonne

Bonjour Mimi,

un essai

Sub Bouton1_QuandClic()
Dim Clt As String, Ligne As Long, Col As Long, NouvComm As String
    Clt = Sheets("FicheClient").Range("D4").Value
    NouvComm = Sheets("FicheClient").Range("B26").Value
    If Clt = "" Then Exit Sub
    With Sheets("Client")
        Ligne = Application.Match(Clt, .Range("A:A"), 0)
        Col = Application.Match("Commentaire", .Range("1:1"), 0)
        .Cells(Ligne, Col).Value = NouvComm
    End With
End Sub

 

[Mimi]

Re : modifier le texte dans une colonne

Bonjour,
Merci beaucoup tototiti, sa marche nickel.
A bientôt sur le forum
Michel

 

[Mimi]

Re : recherche avec la première lettre

Bonjour à tous,
Je reviens avec mon fichier client.
Je recherche un client avec ma liste déroulante, jusque la sa va, mais est-il possible de faire une recherche avec la première lettre et afficher le résultat dans une combobox pour me permettre de choisir la personne.
D'avance merci
Mimi