Selection cellule selon valeur +Insertion

Bonjour les Excel_Praticiens

Un grand Merci d'avance.

Je viens a vous pour m'aider a faire une macro qui cherche un nom dans la colonne B:

Le nom cherché est écrit dans la cellule B2 et se trouve parmi les noms de la colonne B a partir de la cellule B4

Si la cellule en dessous du nom cherché est non vide alors la sélectionner et insérer une ligne juste en dessous

sinon si elle est vide alors la sélectionner

j'ai écris ce code mais il tourne en rond !!

Sub ChercheNom()

For i = 4 To 10000

If Cells(i, 2) = Cells(2, 2) And Cells(i + 1, 2) <> "" Then

Cells(i, 2).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

ElseIf Cells(i, 2) = Cells(2, 2) And Cells(i + 1, 2) = "" Then

Cells(i + 1, 2).Select

End If

Next

End Sub

j’attends vos précieuses lectures

Bonjour,

Un essai ...

Private Sub CommandButton1_Click()
    For i = 4 To 10000

        If Cells(i, 2) = Cells(2, 2) And Cells(i + 1, 2) <> "" Then
            Cells(i + 1, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(i, 2).Select
            Exit Sub
        ElseIf Cells(i, 2) = Cells(2, 2) And Cells(i + 1, 2) = "" Then
            Cells(i, 2).Select
        End If
    Next
End Sub

ric

Merci Ric

Ta macro marche bien:

Private Sub CommandButton1_Click()
    For i = 4 To 10000

        If Cells(i, 2) = Cells(2, 2) And Cells(i + 1, 2) <> "" Then
            Cells(i + 1, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(i, 2).Select
            Exit Sub
        ElseIf Cells(i, 2) = Cells(2, 2) And Cells(i + 1, 2) = "" Then
            Cells(i, 2).Select
        End If
    Next
End Sub