Copier une cellule dans un autre onglet suivant une valeur

[ben82]

Bonjour,

J'ai inséré une collone dans un tableau. Celle-ci comporte deux choix: "oui" ou "non". Lorsque la valeur de la cellule sera égale à "oui" je souhaiterais copier les cellules de la ligne dans un autre onglet.

Quelle fonction dois je utiliser?

 

[mromain]

Re : Copier une cellule dans un autre onglet suivant une valeur

bonjour ben82,

voici une solution en macro :

Sub test()
noColonneOuiNon = 1
Set plage = ActiveSheet.Columns(noColonneOuiNon).Cells
Set nouveauOnglet = ThisWorkbook.Sheets.Add
Set celluleEcriture = nouveauOnglet.Range("A1")
For Each maCellule In plage
    If maCellule.Value = "oui" Then
        maCellule.EntireRow.Copy celluleEcriture
        Set celluleEcriture = celluleEcriture.Offset(1, 0)
    End If
Next maCellule
End Sub

a+

 

[ben82]

Re : Copier une cellule dans un autre onglet suivant une valeur

Merci Romain de votre réponse. Apr contre je ne maîtrisse pas trés bien VB voir trés peu. Quelle sont les manip à faire pour intégréer cette macro à mon tableau?

 

[mromain]

Re : Copier une cellule dans un autre onglet suivant une valeur

re,

quand tu est sur excel, tu fais <Alt><F11>, et tu arrive sur l'éditeur VBA.
à gauche, tu as une arborescence avec entre autre tes feuilles et "thisWorkbook"
tu fais <Clic droit>, <Insertion>, <Module>.
tu copie-colle le code dans le module.

maintenant, tu peux lancer la macro, depuis l'éditeur VBA (icone PLAY) ou depuis le menu de macro d'excel.

un moyen simple de créer un bouton :
tu dessine une forme, tu fais <Clic droit> dessus, <Affecter une macro> et tu sélectionne la macro.

a+

 

[ben82]

Re : Copier une cellule dans un autre onglet suivant une valeur

Merci. En fait la macro me créé un nouvel onglet à chaque fois. Moi je ne voudrais avoir que deux onglets et que l'onglet feuil2 se mette à jour automatiquement sans cliquer sur un bouton. Je vous envoie un exemple de se que je souhaiterais obtenir.

Regarde la pièce jointe Classeur1.xls

 

[mromain]

Re : Copier une cellule dans un autre onglet suivant une valeur

re,

voici le fichier modifié.

a+

 

[ben82]

Re : Copier une cellule dans un autre onglet suivant une valeur

Merci bcp Romain...t'es un génie...😉

Par contre juste une petite question, quand l'onglet feuil2 est mis à jour, il copie aussi le bouton. Peut on y remédier?

 

[mromain]

Re : Copier une cellule dans un autre onglet suivant une valeur

re,

le code rajouter à la fin de la macro supprime toutes les formes de la feuille (donc le bouton aussi).

Sub test()
noColonneOuiNon = 4
Set plage = ActiveSheet.Columns(noColonneOuiNon).Cells
ThisWorkbook.Sheets("Feuil2").Cells.ClearContents
Set celluleEcriture = ThisWorkbook.Sheets("Feuil2").Range("A1")
For Each maCellule In plage
    If maCellule.Value = "oui" Then
        maCellule.EntireRow.Copy celluleEcriture
        Set celluleEcriture = celluleEcriture.Offset(1, 0)
    End If
Next maCellule
ThisWorkbook.Sheets("Feuil2").Columns(noColonneOuiNon).Delete
[COLOR="Red"]For Each maForme In ThisWorkbook.Sheets("Feuil2").Shapes
    maForme.Delete
Next maForme[/COLOR]
End Sub

a+

 

[ben82]

Re : Copier une cellule dans un autre onglet suivant une valeur

merci Romain
A+