Je voudrais supprimer des lignes d un tableau en fonction d une valeur ds 1 colonne (en gros si il y a 1 ds la colonne on supprime la ligne correspondante)
Est ce que ca ressemble a ca :
Sub BoucleFor()
Dim Ligne As Byte
For Ligne = 1 To 50
If Range(O3).Value = a Then
Selection.Delete Shift:=xlUp
NextFor Ligne
End Sub
Je ne sais pas mais en tout les cas en voici un qui fonctionne
Dim cellule As Range
Range("a1:a10").Select
For Each cellule In Selection
If cellule.Value = "1" Then
cellule.Select
Selection.EntireRow.Delete
End If
Next
c est mon tout premier code alors ne m en veux pas mais je n arrive pas a le faire marcher...
Est ce que je dois selectionner ma colonne ou faire 1 autre manip....
Merci GC. Je n'ai fais qu'appliquer ce que les grands de ce forum partagent avec nous. Comme cela t'intéresse, je t'ai mis en fichier le complément très très intéressant de notre serviteur dévoué Thierry. Bonne lecture.
@ ++ Eric C
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim Check As String
Check = Target.Value
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Check = 1 Then
Application.EnableEvents = False
Num = Target.Row
Rows(Num).Delete
Application.EnableEvents = True
End If
End If
End Sub
Pour éviter le Bug de Salim...
Bonne Soirée @+Thierry
Re Bonjour le forum
Re bonjour tom, GC, Bonjour Salim & Thierry
Devoloppé sous EXCEL 97 (Oui je sais Thierry, je suis les posts même si je ne peux plus me connecter comme avant ...).
Merci de la rectification.
@ ++ Eric C