VBA excel

Résolu
medbo Messages postés 551 Date d'inscription   Statut Membre Dernière intervention   -  
medbo Messages postés 551 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai besoin de votre aide pour résoudre le problème suivant :

j'ai une cellule dans une ligne donnée qui contient une valeur "x", je voudrais que quand je saisie une valeur "y" dans une case d'un userform une recherche de la valeur "x" soit effectuée et que la valeur "y" soit inscrite juste dans la case à côté de celle de la valeur "x"
quel est le code VBA pour.

j'espère je me suis bien exprimé

merci pour votre aide


1 réponse

Réponse 1 / 1
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Un bout de code à adapter 
Dim c As Range
With Worksheets(1).Range("A:A")
    Set c = .Find("x", LookIn:=xlValues)
    If Not c Is Nothing Then
        c.Offset(0, 1) = "y"
    End If
End With

Mytå
0
medbo Messages postés 551 Date d'inscription   Statut Membre Dernière intervention   29
 
merci, ça marche. mais il y a un petit problème, ça marche uniquement pour le premier "x" da la collone, et moi je voudrais que ça marche pour toutes les cellules de la collone "A:A" où il y a la valeure "x".

merci encore.
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le forum

Ton code 
Dim C As Range
Dim Debut As String
With Worksheets(1).Range("A:A")
    Set C = .Find("x", LookIn:=xlValues)
    If Not C Is Nothing Then
        Debut = C.Address
        Do
            C.Offset(0, 1) = "y"
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> Debut
    End If
End With
0
medbo Messages postés 551 Date d'inscription   Statut Membre Dernière intervention   29
 
Merci beaucoup, c'est ce que je cherchait.
0