VBA excel

Résolu
medbo Messages postés 570 Statut Membre -  
medbo Messages postés 570 Statut Membre -
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å Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    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 Messages postés 570 Statut Membre 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
    2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      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 Messages postés 570 Statut Membre 29
       
      Merci beaucoup, c'est ce que je cherchait.
      0