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

Conditions "SI" dans du VBA (pour copier coller des données)

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

julien712

XLDnaute Junior
Bonjour

Je n'ai encore pas d'expérience en matière de création de code VBA sur Excel
La seule chose que je fais est de créer des macros en mode graphique et non en les écrivant ...

Je souhaite créer une condition dans une macro déjà existante.

la macro déjà existante consiste à copier coller des valeurs d'un tableau A vers un tableau B.

Voici le code :

Code: 
Sheets("Racc Suite Valid").Select
    Range("A2:B3500").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets("Liste clients raccordés").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    last_ligne = Worksheets("Liste clients raccordés").Range("A1").End(xlDown).Row
    
    Sheets("Racc Suite Valid").Select
    Range("F2:G3500").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets("Liste clients raccordés").Activate
    Range("A" & CStr(last_ligne) + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    last_ligne = Worksheets("Liste clients raccordés").Range("A1").End(xlDown).Row
    
    Sheets("Racc Suite Valid").Select
    Range("K2:L3500").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets("Liste clients raccordés").Activate
    Range("A" & CStr(last_ligne) + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

(le code est OK je n'ai pas besoin de le modifier en soit)

Par contre ce que je souhaite c'est rajouté une condition pour chaque réitération (j'entends par là, une condition juste aprés "last_ligne = Worksheets("Liste clients raccordés").Range("A1").End(xlDown).Row")

En français voila ce que cela donne : si ma cellule A2 de ma feuille "Racc Suite Valid" est vide, alors je ne copie pas, sinon je copie (code du script VBA)

Pouvez vous m'indiquer le code à mettre et à quel emplacement ?

Merci

Cdlt
 
Trier par date Trier par votes
Re : Conditions "SI" dans du VBA (pour copier coller des données)

Salut julien712 et le forum
N'ayant qu'un court extrait du code, difficile de faire mieux :
Code: 
Sheets("Racc Suite Valid").Select
If Range("A2").End(xlUp).Row > 2 Then
    Range("A2:B" & Range("A2").End(xlDown).Row).Copy
    Worksheets("Liste clients raccordés").Range("A2").PasteSpecial Paste:=xlPasteValues
    
    last_ligne = Worksheets("Liste clients raccordés").Range("A1").End(xlDown).Row
    Range("F2:G" & Range("F2").End(xlDown).Row).Copy
    Worksheets("Liste clients raccordés").Range("A" & (last_ligne) + 1).PasteSpecial Paste:=xlPasteValues
       
    last_ligne = Worksheets("Liste clients raccordés").Range("A1").End(xlDown).Row
    Range("K2:L" & Range("K2").End(xlDown)).Copy
    Worksheets("Liste clients raccordés").Range("A" & (last_ligne) + 1).PasteSpecial Paste:=xlPasteValues
End If
Code non testé
Les selct/selection ne servent qu'à ralentir le code.
Je n'utilise jamais End(xlDown), la réponse dépendant de l'état (vide ou non) de la référence et de la cellule suivante. Comme, en général, les deux dernières lignes d'une feuille sont vides, cells(Rows.count,"A").end(xlUp) donne toujours la même réponse : dernière ligne non-vide en A

Pas sûr de ma réponse, les données étant... limitées.
A+
 
Vote positif 0 Vote négatif
Re : Conditions "SI" dans du VBA (pour copier coller des données)

Merci pour la réponse
J'ai fait à peu prés ce que tu as indiqué et cela fonctionne
Je clos donc le sujet qui pour moi est OK 🙂

Merci encore
 
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

  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
426
AtTheOne
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
198
Phil69970
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
508
Nounours4173
N
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
653
ph.vanne
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
345
MICHIS
M
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
422
sylvanu
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
423
cdric78
C
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
136
eastwick
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
780
Phil69970
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
805
gwenn49
G
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
547
micie1509
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
719
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
696
Valter
V
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
471
zendb
Z
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
432
Francky79
F
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
674
fanou06
F
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
844
olivier388
O
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
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…