Re : Selon la valeur de la cellules supprimer la ligne
re,
1/ Pour ajouter un bouton de commande :
Utiliser le menu : Affichage/Barre d'outils et sélectionner Boîte à outils Contrôles
Une fenêtre doit s'afficher.
Cliquer sur le contrôle "Bouton de commande" (le nom s'affiche en pointant la souris sur le contrôle).
Sur la feuille, cliquer sur le bouton gauche de la souris et glisser la souris pour visualiser le bouton et lâcher le bouton gauche de la souris.
Un bouton de commande nommé "CommandButton1" doit apparaît sur la feuille
2/ Changer le nom du bouton de commande :
Bouton droit sur le bouton de commande
Un menu apparaît : Choisir "Propriétés"
Une fenêtre apparaît avec l'ensemble des propriétés pour ce bouton.
Au niveau de la propriété "Name", remplacer CommandButton1 par cmdDeplacer
Au niveau de la propriété "Caption", remplacer CommandButton1 par Déplacer
Fermer la fenêtre des propriétés.
3/ Récupérer la procédure "cmdDeplacer_Click" :
Dans le fichier que je t'avais fourni se trouve la procédure à copier.
Pour la visualiser, ouvrir le fichier et appuyer sur les touches <ALT>+<F11>. Cela affichera la fenêtre "Visual Basic Editor".
A gauche de la fenêtre, tu effectues un double-clic sur Feuil3 et le code apparaît.
Tu copies ceci :
Code:
Dim tablo(7) As String
Dim Plage As Range
Dim Col As Long
Dim cpt
cpt = 1
While (Range("R21").Value = 36 And cpt < 19)
For Col = 12 To 19
tablo(Col - 12) = Cells(21, Col).Value
Next Col
Range("L22:S38").Copy Destination:=Range("L21")
Range("L38:S38").Value = tablo
cpt = cpt + 1
Wend
4/ Associer le code copié au bouton de ta nouvelle feuille :
Tu repars dans ta nouvelle feuille où tu as ajouté le bouton de commande "Déplacer".
Tu effectues un double clic sur le bouton et la fenêtre Visual Basic Editor doit s'ouvrir sur
Code:
Private Sub cmdDeplacer_Click()
[COLOR="Red"]' Ici tu colles le code copié.[/COLOR]
End Sub