Bonjour,

je suis débutante en VBA Excel , j'ai un petit problème dans mon code , je veux chercher une valeur de ma combobox
"c = ComboBox1.Value "
dans la colonne A de la feuille 1
" Set l = Range("A:A").Find(c, lookat:=xlWhole) "
, et renvoyer le numéro de la ligne "r = ActiveCell.Row" ,
aprés copier une valeur d'une cellule de la même ligne et la coller dans la derniere ligne non vide de la feuille 3
"Sheets("Feuil3").Range("A65521").End(xlUp)(2).Offset(1, 0).Value = Sheets("Feuil1").Cells(r, 23).Value " .
mais ça marche pas , il fait une copie de la cellule Cells(1,23) non Cells(r, 23).
SVP aidez moi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
      Dim c As Integer
      Dim r As Integer
      Dim l As Range
     With Worksheets("Feuil1")
          c = ComboBox1.Value
       Set l = Range("A:A").Find(c, lookat:=xlWhole)
       r = ActiveCell.Row
       Sheets("Feuil3").Range("A65521").End(xlUp)(2).Offset(1, 0).Value = Sheets("Feuil1").Cells(r, 23).Value
 
    End With