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

Copier/Coller sous condition en code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Erplast
  • Date de début Date de début

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
E

Erplast

Guest
Bonsoir,

Je suis en train de créer un programme VBA sur Excel. J'arrive à un point bloquant et j'ai besoin d'aide.

Au moment ou je suis dans mon code VBA, je concatène 4 valeurs en cellule K4. Les valeurs de la ligne K sont générées automatiquement par Excel. La liste situé sous la ligne K est la liste complète de mon programme, elle est donc figé.
Je souhaiterais que mon code VBA, selectionne la ligne 4 et la copie dans la liste en dessous à l'endroit ou la colonne 4 corresponds à la valeur de K4. (je pense que la pièce jointe est parlante).

Est ce qu'une personne peut bien m'aiguiller sur un code VBA ?

Merci énormément de votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Copier/Coller sous condition en code VBA

Bonsoir.
Ça dépend. Si la manœuvre est assez sporadique vous pouvez utiliser Application.Match avec mêmes paramètres que EQUIV pour obtenir le numéro relatif de la ligne, ou bien la méthode Find pour tomber sur la cellule de la bonne ligne. S'il y en a beaucoup à faire il pourrait être plus intéressant de ranger les numéros de lignes dans un Dictionary.
 
Vote positif 0 Vote négatif
Re : Copier/Coller sous condition en code VBA

Bonjour Dranreb,

Merci pour cette réponse rapide.

C'est une opération très courante par conséquent j'espère trouver un code bien "huilé". Je ne connais pas du tout la fonction Dictionary ? Peux tu m'en dire plus ?

Merci d'avance.
 
Vote positif 0 Vote négatif
Re : Copier/Coller sous condition en code VBA

Bonjour.
Ce n'est pas une fonction mais un type d'objet.
Beaucoup l’utilisent via une variable de type Object car il existe l'expression CreateObject("Scripting.Dictionary") qui représente une nouvelle instance de cet objet. Mais c'est sans assistance par la suite à la programmation de son utilisation, et avec liaisons tardives (retardées jusqu'au moment de l'exécution) aux méthodes et propriétés de l'objet.
Je conseille donc plutôt de cocher "Microsoft Scripting Runtime" parmi les références disponibles de menu Outils, Références…
De cette façon vous pourrez déclarer un MonDico As Dictionary, faire avant de l'utiliser Set MonDico = New Dictionary, et vous aurez des liaisons anticipées (résolues dès la compilation) à ses propriétés ou méthodes Add, Key, Keys, Item, Items, Exists et Count, lesquelle vous sont suggérées dans une liste dès la frappe d'un point derrière le nom de votre variable Dictionary ainsi que les paramètres qu'ils leur faut ensuite.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier/Coller sous condition en code VBA

Bonjour,

Peut être à cause de mon inexpérience, je ne comprends pas grand chose à votre explication. Pouvez vous me montrer un exemple sur ma pièce jointe ?
 
Vote positif 0 Vote négatif
Re : Copier/Coller sous condition en code VBA

Soit, mais pourquoi comprendriez vous mieux l'exemple ? Vous disiez vouloir être "aiguillé", alors pourquoi ne cherchez vous pas à assimiler le jargon en me demandant des explications sur le sens des mots, c'est la clé pour tout comprendre par la suite, y compris les aides d'Excel et de VBA.

Dans la liste des références disponibles, menus Outils, Références… de VBE, cherchez et cochez "Microsoft Scripting Runtime".
Mettez le code suivant dans le module Feuil1 (Feuil1) de la rubrique Microsoft Excel Objets
VB: 
Option Explicit
Dim Dico As Dictionary

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim T() As Variant, L As Long
If Target.Address <> "$K$4" Then Exit Sub
If Dico Is Nothing Then
   Set Dico = New Dictionary
   T = Range(Feuil1.[K5], Feuil1.[K65536].End(xlUp)).Value
   For L = 1 To UBound(T): Dico.Add T(L, 1), L: Next L: End If
If Not Dico.Exists(Target.Value) Then MsgBox """" & Target.Value _
   & """ n'existe pas.", vbCritical, "Selection K4": Exit Sub
Feuil1.[E4:J4].Offset(Dico(Target.Value)).Value = Feuil1.[E4:J4].Value
End Sub
Le report de E4:J4 vers la bonne ligne de E:J se produira ainsi lors d'une sélection de la cellule K4.
 
Dernière édition:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
616
Nico77
N
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
297
job75
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
705
jeff1494
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
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
616
chinel
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
375
StéphaneDeLà
S
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
935
fanch55
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
875
piga25
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
4 K
apocalypse
A
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
450
flc13090
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
385
Altfkat
A
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
674
ma6me
M
J
  • Résolu(e)
XL 2021 Problème code VBA
Réponses
10
Affichages
1 K
Phil69970
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
812
RyuAutodidacte
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
761
sambio2
S
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…