Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recopie ligne précédente selon critère en VBA

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sand13

XLDnaute Occasionnel
Bonjour à tous, je fais appel à vous car je suis bloqué sur un paramétrage VBA, je m'explique:

Je souhaiterai que lorsque la valeur d'une cellule dans mon tableau (en colonne A: selection de "OPERATION MIROIR") soit saisie, les cases de la colonne D à M de la ligne précédente se reportent automatiquement.

La contrainte ici est que ceci doit être effectué en VBA car je ne peux mettre de formule dans mes cellules étant donné que c'est un tableau de saisie et que j'aimerai automatiser cette pratique comme les autres enregistrées dans "Private Sub Worksheet_Change(ByVal Target As Range)"



Merci beaucoup à celles et ceux qui pourront m'aiguiller !

Si une solution est apportée à ma requête et si je puis me permettre, serait-il possible que si dans cette même colonne A la saisie comprend le mot "CLIENT", la ligne du dessous en colonne A s'inscrive automatiquement "OPERATION MIROIR" et donc enchaine avec ce que je décrivais plus haut ?



Bonne fin de journée
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Recopie ligne précédente selon critère en VBA

Bonjour sand13, le forum,

Copier/coller des cellules ou des valeurs ne présente aucune difficulté.

Sauf qu'il faut savoir quoi copier et où les coller.

Ce n'est pas le cas de votre fichier.

Montrez sur un exemple ce que vous attendez exactement.

A+
 
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

Bonjour,

une piste..

If Target = "OPÉRATION MIROIR" Then
'recopie de la ligne précédente
ligne = Target.Row
Range(Cells(ligne - 1, 4), Cells(ligne - 1, 13)).Copy Cells(ligne, 4)
End If

sauf que si je colle ca à la fin de votre macro déjà existante.. il y a comme un petit effet récursif qui fait bugger..
 
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

Je pense que c'est parce que target est déjà employé sur les 2 macros précédentes non ? peut-on préciser le target de la colonne A ?

@Job75 voici un fichier je l'espère plus explicite
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

avec une "astuce" qui fonctionne.. mais suis pas sur que ce soit très catholique. d'autant que je ne sais pas ce que tu fais avec tes premieres macros...

l'astuce en question.. c'est le test : If Target.Column <> 1 Then Exit Sub

de plus. si tu t'amuses à sélectionner un rachat client ou emission client ou operation miroir parmis les lignes déjà remplies.. aie aie aie
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

j'ai marqué en vert ce que font les macros, une est pour prévenir la saisie d'un doublon dans la colonne B en demandant confirmation et la deuxieme empeche la saisie d'un doublon en colonne C
 
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

@vgenron: merci ça marche mais en effet pour le aie aie aie lol !

si je me permets, est ce que l'on peut executer la copie des cellules après avoir saisie la dernière ? donc en colonne M ?
parce que ça copie du blanc évidemment si je commence la saisie par la cellule A
 
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

Re,

Ajoutez ce code au début de votre macro :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect([A:A], Target) Is Nothing And Target.Count = 1 Then
  If Target = "OPÉRATION MIROIR" Then
    Target(1, 4).Resize(, 10) = Target(0, 4).Resize(, 10).Value
  ElseIf Target = "ÉMISSION TCN CLIENT" Then
    Target(2) = "OPÉRATION MIROIR"
  End If
 
 ' Prévenir de la saisie d'un doublon avec autorisation

ElseIf................
Fichier joint.

PS : il y a eu beaucoup de réponses à votre intervention sur ce fil :

https://www.excel-downloads.com/thr...s-manquants-dans-une-suite-excel-2007.161608/

On aimerait bien un retour de votre part.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

merci job75 votre macro fonctionne également, mais même question: est ce que l'on peut exécuter la copie des cellules après avoir saisie la dernière en colonne M ?
 
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

sand13 à dit:
même question: est ce que l'on peut exécuter la copie des cellules après avoir saisie la dernière en colonne M ?
Cliquez pour agrandir...

Ce n'est pas clair du tout.

- toutes les cellules de A à M doivent-elles avoir été renseignées ?

- que faut-il qu'il y ait en colonne A ?

- et puisque la macro copie la ligne précédente, le contenu des cellules de D à M va être écrasé, bizarre non ?

A+
 
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

Le soucis est que je commence une saisie de gauche à droite on est d'accord, ainsi lorsque je sélectionne EMISSION TCN CLIENT en colonne A, la macro copie la ligne (vierge de saisie puisque je commence par la colonne A..) et la colle dessous avec OPERATION MIROIR.

Donc je voulais savoir si il y'a une possibilité de freiner la macro et de faire en sorte qu'elle fonctionne quand ma saisie initiale est terminée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recopie ligne précédente selon critère en VBA

Re,

Bon c'est maintenant plus clair, alors écrire :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [A:A]) Is Nothing And Target.Count = 1 Then
  If Target = "OPÉRATION MIROIR" Then _
    Target(1, 4).Resize(, 10) = Target(0, 4).Resize(, 10).Value

ElseIf Not Intersect(Target, [D:M]) Is Nothing And Target.Count = 1 Then
  If Application.CountA(Intersect(Target.EntireRow, [D:M])) = 10 And _
    Cells(Target.Row, 1) = "ÉMISSION TCN CLIENT" Then _
    Cells(Target.Row + 1, 1) = "OPÉRATION MIROIR"

 ' Prévenir de la saisie d'un doublon avec autorisation
 
 ElseIf.......................
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
196
sylvanu
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
439
JBL07
J
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
768
com689
C
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
180
deudecos
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
246
Chris1263
C
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
293
job75
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
360
job75
Y
  • Résolu(e)
XL 2010 rendre formule en vba
Réponses
11
Affichages
560
job75
T
  • Résolu(e)
XL 2010 Mise en surbrillance dans tableau selon 2 critères
Réponses
11
Affichages
334
AtTheOne
O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
303
JHA
J
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
655
Jaykerz
J
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
369
olivier Clech
O
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
326
aurejotrail
A
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
631
mimednejma
M
J
  • Question Question
Microsoft 365 Formule sommes selon critère
Réponses
8
Affichages
564
sylvanu
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
321
chris
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
B
  • Question Question
XL 2016 Somme automatique des prix associés aux produits sélectionnés sur Excel
Réponses
6
Affichages
374
bkarima1
B
O
  • Question Question
XL 2013 Recopier automatique des valeurs d'un onglet vers un autre onglet selon critère
Réponses
2
Affichages
817
olivieroma
O
  • Résolu(e)
Microsoft 365 Remplir tableau avec fonction via userform
Réponses
5
Affichages
404
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…