Macro VBA

[alex44510]

Bonjour à tous,

Je souhaiterai réaliser une macro VBA.

Copier des cellules dans un autre onglet avec une condition

Ci-joint le fichier avec explication.

Cordialement,

Alex44510

 

[ROGER2327]

Re : Macro VBA

Bonjour à tous.

Un essai :​

Private Sub Worksheet_Change(ByVal Cible As Range)
'Cas précis > SI K11="Accepté" alors copie des cellules C1 et F1 respectivement en
'"C"&"Derligne colonne C" et "F"&"Derligne colonne F" dans l'onglet Table partenaire

    If Cible.Column = Columns("K").Column And Cible.Row > 10 Then
        With Worksheets("Table partenaire")
            If Cible(1).Value = "Accepté" Then
                [C1].Copy Destination:=.Cells(.Cells(.Rows.Count, .Columns("C").Column).End(xlUp).Row + 1, .Columns("C").Column)
                [F1].Copy Destination:=.Cells(.Cells(.Rows.Count, .Columns("F").Column).End(xlUp).Row + 1, .Columns("F").Column)
            End If
        End With
    End If
End Sub

Code à placer dans le module de code de la feuille Feuil1 (onglet 1 Table prospection. Évidemment, ça ne fonctionnera que s'il y a un onglet nommé Table partenaire dans votre classeur.​

Bonne journée.


ℝOGER2327
#7153

Jeudi 19 Gueules 141 (Saint Sade ès Liens - fête Suprême Quarte)
25 Pluviôse An CCXXII, 5,7734h - lièvre
2014-W07-4T13:51:22Z

 

[alex44510]

Re : Macro VBA

Bonjour ROGER2327,

Merci beaucoup pour ta réponse.

J'ai placé le code comme convenu dans le module de la Feuil1 mais il m'indique :

"Erreur d'execution '9:

L'indice n'appartient pas à la sélection"

En soulignant cette partie du code : With Worksheets("Table prospection")

Merci à toi

Alex

 

[ROGER2327]

Re : Macro VBA

Re...

Bonjour ROGER2327,

Merci beaucoup pour ta réponse.

J'ai placé le code comme convenu dans le module de la Feuil1 mais il m'indique :

"Erreur d'execution '9:

L'indice n'appartient pas à la sélection"

En soulignant cette partie du code : With Worksheets("Table prospection")

Merci à toi

Alex

Je suis parti de vos instructions :

Cas précis > SI K11="Accepté" alors copie des cellules C1 et F1 respectivement en "C"&"Derligne colonne C" et "F"&"Derligne colonne F" dans l'onglet Table partenaire

J'ai donc écrit

With Worksheets("Table partenaire")

Si vous voulez coller les données dans un autre onglet que celui nommé Table partenaire, il suffit de remplacer Table partenaire par le nom de l'onglet de destination des données.
(Comme je l'ai écrit dans mon premier message "... ça ne fonctionnera que s'il y a un onglet nommé Table partenaire dans votre classeur ...").
En observant le classeur de démonstration que vous avez fourni, je me demande si, par erreur, vous avez écrit "... dans l'onglet Table partenaire" au lieu de "... dans l'onglet 2 Table partenaire".
À y regarder de plus près, je me demande aussi s'il s'agit bien de copier les cellules C1 et F1, qui sont vides. Mais je ne connais pas votre classeur réel...
Bref, il convient d'adapter à votre classeur réel.​

Bon courage.


ℝOGER2327
#7158

Jeudi 19 Gueules 141 (Saint Sade ès Liens - fête Suprême Quarte)
25 Pluviôse An CCXXII, 6,7142h - lièvre
2014-W07-4T16:06:51Z

 

[Robert]

Re : Macro VBA

Bonjour Alex, Roger, bonjour le forum,

Vérifie le nom de l'ongtet Table prostpection (peut-être un espace avant ou après) mais c'est le type d'erreur qui arrive quand l'onglet n'a pas exactement le même nom que celui indiqué dans le code.

 

[alex44510]

Re : Macro VBA

Désolé Fin de journée, fin de semaine, la ou mon cerveau me joue des tours !

Merci beaucoup à vous ça marche correctement.

A plus