Recherche données dans un tableau et écriture sur une colonne

Bonjour,

je débute en VBA et j'ai commencé à chercher par moi même mais je suis un peu perdu...

Je mets en place une boite de dialogue dans laquelle je renseigne un "appareil" et une "gamme"

Je voudrais que la macro cherche la ligne où j'ai la même "gamme" que celle renseignée et que ce soit la première case vide de la colonne "appareil" .

L'objectif étant ensuite d'écrire l' appareil que j'ai renseigné dans cette première case vide.

Merci d'avance!

Bonjour Lauguste75

Il faut faire une boucle de l a1ère à la dernière ligne du tableau

Tester si la cellule C & ligne contient la gamme, puis tester sir la cellule A & ligne

With ActiveSheet
  dLig = .Range("E" & rows.count).end(xlup).row
  For Lig = 4 to dLig
    If .Cells(Lig, "C") = MaGamme Then
      If .Cells(Lig, "A") = "" Then
        ' La ligne est trouvée on sort de la boucle
        Exit For
      End If
    End If
  Next Lig
End With

A+

top! merci! cela fonctionne parfaitement!

Re,

Re,

Bien je ne suis pas prêt à faire du VBA!

J'ai en réalité plusieurs case dans mon useform, donc plusieurs recherche exactement du même type. J'ai modifié le code ainsi mais cela ne fonctionne pas. Je pensais que la boucle pouvait tourner ainsi mais lorsque je lance la macro il y a un problème avec For ... Exit For.

Merci d'avance!

Private Sub ajout_appareil_Click()

With Worksheets("test stock")
  dLig = Worksheets("test stock").Range("A" & Rows.Count).End(xlUp).Row
  For lig = 4 To dLig
    If Cells(lig, 3) = Me.voie1 Then

      If Cells(lig, 1) = "" Then
      .Cells(lig, 1) = Me.sn_appareil
     Worksheets("test stock").Cells(lig, 2) = 1

     End If
     End If
     If Me.voie2 <> "" Then
      If Cells(lig, 3) = Me.voie2 Then

      If Cells(lig, 1) = "" Then
      .Cells(lig, 1) = Me.sn_appareil

     Worksheets("test stock").Cells(lig, 2) = 2
      End If
      End If
        ' La ligne est trouvée on sort de la boucle
        Exit For

  Next lig
End With

End Sub

Bonsoir,

Quand on développe en VBA, il faut : Un For qui se termine par un Next, un If qui se termine pas un End If
https://www.excel-pratique.com/fr/vba

Comme nous ne savons pas ce que vous voulez faire, de plus sans fichier

Bonne soirée

En fait j'ai répété le code autant de fois que j avais de requête...tout simplement même si je me doute qu il y avait plus stylisé!

Merci pour la réponse