VBA excel

Résolu
medbo -  
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



--
c'est en s'entre-aidons que nous réussirons

1 réponse

  1.  Mytå Contributeur
    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
    1. medbo Auteur
      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
    2. Mytå Contributeur
      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
    3. medbo Auteur
      Merci beaucoup, c'est ce que je cherchait.
      0