Sujet Précédent Sujet Suivant

VBA excel

Résolu/Fermé
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 20 mars 2011 à 17:52
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 2 avril 2011 à 20:54
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


A voir également:

1 réponse

Réponse 1 / 1
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
20 mars 2011 à 18:49
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 lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 29
26 mars 2011 à 17:14
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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
26 mars 2011 à 17:23
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 lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 29
2 avril 2011 à 20:54
Merci beaucoup, c'est ce que je cherchait.
0