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

Copier/Coller automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion spwww
  • 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
S

spwww

Guest
Bonjour à tous !
Je souhaiterais mettre en place un fichier qui permettrait de copier/coller automatiquement une ligne lorsque certaines colonnes sont remplies.

Dans le fichier joint pour exemple dans les colonnes A & B l'utilisateur devra remplir Nom et Prénom. Le copier/coller ne fonctionnera que si l'utilisateur a bien rempli les cases Nom et prénom.

Le nombre d'utilisateur n'est pas défini il faudrait que la totalité des colonnes A et B soient impactées.

Voir fichier joint avec commentaires car je me suis peut - être mal expliqué sur le probleme que je rencontre
j'ai recherché sur le forum des sujets similaires mais ils ne correspondent pas à mon soucis

en vous remerciant d'avance
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Copier/Coller automatique

Bonjour spwww,

Voici en pièce jointe, une solution par macro évènementielle, que tu trouveras dans le code de la feuille "Questionnaire1". A toi ensuite de l'adapter à ton besoin.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copier/Coller automatique

Bonjour,
Macro événementielle donc a placer dans le module de la feuille Questionnaire1
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range, l&
If Target.Column < 3 And Target.Row > 1 And Target.Count = 1 Then
    l = Target.Row
    Set r1 = Range("C" & l & ":H" & l)
    Set r2 = [Feuil3].Range("A1:F1")
    If Application.CountA(Range("A" & l & ":B" & l)) = 2 Then
        r1.Value = r2.Value
    Else
        r1.ClearContents 'est-ce bien utile ?
    End If
End If
End Sub

Edit : Salut Fred0o 🙂

A+
kjin
 
Vote positif 0 Vote négatif
Re : Copier/Coller automatique

Dans votre projet: ouvrez le module Feuil1 (Questionnaire1)
dans les 2 zones qui surmontent la fenêtre de code:
Objet: Worksheet - Procédure: Change
et développez y ce qui doit se passer et que vous avez nécessairement compris.
Le paramètre Target représente la plage qui à été modifiée. Vous pouvez en déduire son adresse, sa ligne, sa colonne, une plage s'intersectionnant avec elle ou pas etc. Ne rien faire le cas échéant.
À+

Bonjour Kjin et fred0o°⁰.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier/Coller automatique

Merci à tous pour vos réponses concrêtes et rapide, vous m'apportez une aide précieuse dans l'élaboration de ce fichier!

Tout fonctionne à merveille merci à Fred0o, kjin , bebere et dranreb bonne continuation à vous quatre!
 
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

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
325
job75
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
980
TooFatBoy
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
470
fenec
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
315
Bodin44
B
N
  • Résolu(e)
Microsoft 365 Optimisation tableau avec adresse mail et numéro de téléphone (débutant)
Réponses
4
Affichages
317
JHA
J
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
1 K
Krome36
K
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
522
sousou
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
407
NikonvsWild
N
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
624
chinel
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
378
StéphaneDeLà
S
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
943
Dranreb
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
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
K
  • Question Question
XL 2010 copier des dossiers ou fichiers pour les coller dans un disque dur externe
Réponses
2
Affichages
565
kiki29
L
  • Question Question
Microsoft 365 Je n'arrive à copier/coller des colonnes d'un fichier CSV dans un Google Spreadsheet
Réponses
1
Affichages
583
fanch55
A
  • Résolu(e)
XL 2016 Copier Coller données avec VBA dernière cellules vide
Réponses
13
Affichages
1 K
Anto35200
A
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
1 K
gwenn49
G
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
3 K
sylvanu
C
  • Question Question
Autres copier coller cellule d'un fichier source
Réponses
12
Affichages
976
job75
A
  • Question Question
Insérer un copier / coller
Réponses
0
Affichages
415
aziz
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…