Inputbox

bonsoir

je fais des essais depuis le début de soirée, mais je seche.

j'ai une macro qui fonctionne , mais je voudrais l'améliorer

cette macro trouve en colone C la valeur 1 et efface les lignes concernées

Sub essaisupc()

For i = 1000 To 2 Step -1

If Range("C" & i).Value = "1" Then Rows(i).Delete

Next i

End Sub

a l'aide de 2 inputbox , peut on choisir la colone et la valeur à selectionner

merci de votre aide

cordialement

Hello,

Essaie le code comme ceci si il te va...

Sub essaisupc()

    Dim colonne, valeur As String

    On Error Resume Next

    colonne = InputBox("Quelle colonne ?", "Colonne")
    valeur = InputBox("Quelle valeur ?", "Valeur")

    If colonne = "" Or valeur = "" Then
        MsgBox "Saisissez colonne et valeur svp !"
        Exit Sub
    Else
        For i = 1000 To 2 Step -1
            If Range(colonne & i).Value = valeur Then Rows(i).Delete
        Next i
    End If

End Sub

Bonsoir

Bonsoir Hulk

Ma contribution

Option Explicit

Sub essaisupc()
Dim I As Long
Dim Rep
Dim Quoi As Integer, Colonne As Integer

  Rep = InputBox("Valeur a chercher")
  If Rep = "" Then
    MsgBox "Abandon par l'utilisateur"
    Exit Sub
  End If

  Quoi = Rep

  Rep = InputBox("Colonne de recherche (A,B,AX...")
  If Rep = "" Then
    MsgBox "Abandon par l'utilisateur"
    Exit Sub
  End If

  ' Vérification de la validité de la colonne
  On Error Resume Next
  Colonne = Cells(1, Rep).Column
  On Error GoTo 0

  If Colonne = 0 Then
    MsgBox "colonne non valide"
    Exit Sub
  End If

  For I = 1000 To 2 Step -1
    If Not IsEmpty(Cells(I, Colonne)) And Cells(I, Colonne) = Quoi Then Rows(I).Delete
  Next I
End Sub

bonjours,

merci de votre aide cela marche bien,

mais peut on la modifier pour pouvoir eventuellement dans l'input box valeur suprimer les lignes ou il n'y a pas de valeurs.

j'ai essayé en ne mettant rien et ok cela ne prend pas

cordialement

Bonjour

Quand j(ai fait des essais avec la valeur 0 , la macro me supprimait toutes les lignes pourtant 0 est différent de "" (chaine vide)

Fais un test en modifiant cette ligne

If Not IsEmpty(Cells(I, Colonne)) And Cells(I, Colonne) = Quoi Then Rows(I).Delete

par

If Cells(I, Colonne) = Quoi Then Rows(I).Delete

Et comme valeur tu tapes 0

bonsoir,

bon boulot !!

merci a vous 2

cordialement