Selon la valeur de la cellules supprimer la ligne

[Guido]

Bonjour le forum

Apres avoir fais un classement selon les citations,

J'aimerais decaller la ligne en derniere position si la cellules ou les cellules contiennes

la valeur 36.

Voir le fichier..Merci d'avance

Guido

 

[cbea]

Re : Selon la valeur de la cellules supprimer la ligne

Bonjour Guido,

Voici une solution.

 

[Guido]

Re : Selon la valeur de la cellules supprimer la ligne

Re

Merci cbea

Une fois de plus ,je suis satisfais du résultat.

A plus

Guido

 

[Guido]

Re : Selon la valeur de la cellules supprimer la ligne

Re

cbea

J'aimerais ajouter la feuil 3 dans un autre classeur ,comment dois je procedé..

je ne connais rien en vba et comment faire pour le bouton..

Merci

Guido

 

[cbea]

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 :

    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

Private Sub cmdDeplacer_Click()
     [COLOR="Red"]' Ici tu colles le code copié.[/COLOR]
End Sub

 

[Guido]

Re : Selon la valeur de la cellules supprimer la ligne

Re

Merci Cbea je vais regarder ca...

A plus

Guido