Input Box-recupération saisie utlisateur

Bonjour,

En espérant que vous trouverez solution à ce petit probleme:

J'aimerai en fonction de la lettre (de la colonne) saisie par l 'utilisateur pouvoir effectuer des manipulations sur les cases de cette colonne. Le soucis semble provenir de .Range("result" & i).Delete qui ne semble pas adapté

Sub exemple()
    Dim result As String

    result = InputBox("Saisir colonne", "titre")

    If Application.CountIf(col, .Range("result" & i).Value) = 0 Then
       .Range("result" & i).Delete

      End If

End Sub

Merci d'avance !

tu mets des .range sans avoir de with...

soit tu enlèves ton point soit tu mets un with

De plus i et col ne sont pas définis, ils valent donc 0.. et la ligne 0 n'existe pas..

Autant pour moi je n'avais pas saisi tout le code, le voici:

Sub Exemple()
'Def type variables
  Dim i As Integer
  Dim ref As Range

 'Definition plage de cellules en memoire
  Set ref= Worksheets("Feuil2").Columns("A")

   result = InputBox("Saisir colonne", "titre")

With ThisWorkbook.Sheets("Feuil1")
    For i = 4000 To 1 Step -1

      If Application.CountIf(ref, .Range("result" & i).Value) = 0  Then

       .Range("result" & i).Delete

      End If

      Next i

End With

End Sub

Désolé...

.Range("result" & i).Delete

= Range("Result1") tu connais ?

= Range("A1") je connais..

Enlève les "" à ta variable result

Ah oui mince, je débute..

Ça fonctionne, merci beaucoup!!

Au passage le site est vraiment complet et très bien fait.