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

XL 2013 VBA - Copie de cellule vers une feuille sous condition

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

NiFi

XLDnaute Nouveau
Bonjour,

Voici le problème:

En sheet1 j'ai un formulaire avec des Cellule pré remplis et des cellule à remplir 😛, jusque là c'est manuelle.

Le but est de copier les cellules: C3, D5, E2 dans Sheet2 dans les cellules A1 A2 A3 mais si A1 A2 A3 sont déjà remplis alors passer sur les cellules B1 B2 B3 etc...

Et créer en sheet1 un bouton qui efface C3, D5, E2 pour recommencer l'action.

(le but est de remplir un formulaire d'incident de le sauvegarder en sheet2 et d'envoyer le formulaire par mail tout en sauvegardant chaque incident en sheet2)

J'espere avoir été clai...😀
 
Trier par date Trier par votes
Re : VBA - Copie de cellule vers une feuille sous condition

Bonjour et bienvenue

Avec un fichier s'aurait été plus simple

Avec ce que j'ai compris essaye ce bout de code

Code: 
Sub CopieColle()
Dim DerLig As Long

DerLig = IIf(Feuil2.[A1] = "", Feuil2.Range("B65530").End(xlUp).Row, Feuil2.Range("B65530").End(xlUp).Row + 1)
Feuil1.[C3].Copy Destination:=Feuil2.Cells(DerLig, 1)
Feuil1.[D5].Copy Destination:=Feuil2.Cells(DerLig, 2)
Feuil1.[E2].Copy Destination:=Feuil2.Cells(DerLig, 3)
Feuil1.Range("C3,D5,E2").ClearContents
End Sub

Code à mettre éventuellement à un bouton

Que faire si une ou plusieurs des dites-cellules sont vides?


Bonne journée
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : VBA - Copie de cellule vers une feuille sous condition

Super !
J'ai adapté le code à mon fichier mais j'ai une erreur 424 :S
voici le code:

Sub CopieColle()
Dim DerLig As Long

DerLig = IIf(Suivi.[B1] = "", Suivi.Range("C65530").End(xlUp).Row, Suivi.Range("C65530").End(xlUp).Row + 1)
Escalade.[F7].Copy Destination:=Suivi.Cells(DerLig, 1)
Escalade.[F8].Copy Destination:=Suivi.Cells(DerLig, 2)
Escalade.[F9].Copy Destination:=Suivi.Cells(DerLig, 3)
Escalade.[F10].Copy Destination:=Suivi.Cells(DerLig, 4)
Escalade.[H7].Copy Destination:=Suivi.Cells(DerLig, 5)
Escalade.[H8].Copy Destination:=Suivi.Cells(DerLig, 6)
Escalade.[H9].Copy Destination:=Suivi.Cells(DerLig, 7)
Escalade.[H10].Copy Destination:=Suivi.Cells(DerLig, 8)
Escalade.[H11].Copy Destination:=Suivi.Cells(DerLig, 9)
Escalade.[F13].Copy Destination:=Suivi.Cells(DerLig, 10)
Escalade.[F14].Copy Destination:=Suivi.Cells(DerLig, 11)
Escalade.[F15].Copy Destination:=Suivi.Cells(DerLig, 12)
Escalade.[F16].Copy Destination:=Suivi.Cells(DerLig, 13)
Escalade.Range("F7,F8,F9,F10,H7,H8,H9,H10,H11,F13,F14,F15,F16").ClearContents
End Sub
 
Vote positif 0 Vote négatif
Re : VBA - Copie de cellule vers une feuille sous condition

Re à Tous

d'après ce que j'ai compris les noms de tes feuilles sont Suivi et Escalade donc il faut Remplacer Suivi par Sheets("Suivi") et escalade par Sheets("Escalade") car moi je met les CodeName (Feuil1, Feuil2...) au lieu des noms de feuille (Mauvaise habitude ...je sais😱)

Bonne journée
 
Vote positif 0 Vote négatif
Re : VBA - Copie de cellule vers une feuille sous condition

oui j'ai su réglé ce point j'ai un message d'erreur car il refuse de copier les cellules fusionné les 4 dernière de la range sont fusionne avec 3 cellules
 
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

M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
435
JHA
J
N
  • Question Question
XL 2019 Formule pour copier/coller une valeur
Réponses
2
Affichages
1 K
Naia
N
V
  • Question Question
Microsoft 365 copie de couleur d'une cellule à une autre sous condition
2 3
Réponses
35
Affichages
2 K
virdg
V
T
  • Question Question
Microsoft 365 VBA sous excel pour écrire dans doc word
Réponses
2
Affichages
1 K
Titi71
T
P
  • Question Question
Microsoft 365 VBA, source d'une référence
Réponses
2
Affichages
1 K
Daniel Bretelles
M
  • Question Question
Microsoft 365 Formule SI avec condition de nom - recopiée sur une autre feuille
Réponses
11
Affichages
1 K
macca
M
O
  • Question Question
XL 2019 copie de cellule en fonction d'un numéro de listing de référence
Réponses
1
Affichages
962
Jacky67
I
  • Question Question
Microsoft 365 Copie formule avec moyennes et un pas de 2
Réponses
6
Affichages
847
djidji59430
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
E
  • Résolu(e)
Microsoft 365 Macro VBA - Fusionner des cellules
Réponses
8
Affichages
2 K
Elegancya
E
S
  • Question Question
Microsoft 365 Ajout d'une constante dans une cellule lors de la saisie
2
Réponses
18
Affichages
3 K
Staple1600
K
  • Question Question
XL 2016 VBA - Extraire une feuille pour l'enregistrer en .csv (avec séparateur point virgule) puis l'enregistrer en .txt
Réponses
3
Affichages
2 K
Karim48
K
S
  • Question Question
XL 2016 VBA Recopie de valeurs de cellules d'une feuille vers une autre à la suite
Réponses
5
Affichages
2 K
safranien
S
K
  • Question Question
Microsoft 365 VBA rechercher si une cellule d'une autre feuille est vide comme condition de IF
Réponses
2
Affichages
2 K
Kyirra
K
D
  • Question Question
XL 2013 Recherche valeur fixe - Remplissage cellules
Réponses
9
Affichages
2 K
Dja75
D
M
  • Question Question
XL 2016 Copier/coller de plusieurs cellules non contigües d'une feuille vers une ligne d'une autre feuille
Réponses
8
Affichages
3 K
Makovitch
M
M
  • Résolu(e)
XL 2013 Empiler des valeurs de cellule dans une même colonne
Réponses
6
Affichages
1 K
Michel J.
M
M
  • Question Question
XL 2019 Masquer / Démasquer cellule sous condition
Réponses
7
Affichages
2 K
Mel62
M
D
  • Résolu(e)
Sélectionner données d'une feuille puis coller sur une autre sans les cellules vides
Réponses
6
Affichages
2 K
JHA
J
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…