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

Microsoft 365 Copier coller sous conditions d'un classeur a un autre VBA

I

Inconnu95

XLDnaute Nouveau
Salut à tous !

J'ai besoin de votre aide pour le problème suivant. J'ai deux classeurs. Le premier classeur sert à alimenter le deuxième pour les numéros de factures cependant il ne doit alimenter que les lignes correspondants au bon numéro de facture sur le deuxième classeur. Les colonnes à alimenter sont les colonnes N et O du classeur A vers le classeur B (chacun se trouvant à un emplacement différent), uniquement si les colonnes E, F, G,H,I,J,K,P correspondent sur les 2 classeurs. J'aimerais savoir s'il était possible de développer une macro dessus ou non.

Je vous met les fichiers en pièce jointe.

Merci de votre aide.
 

Pièces jointes

  • navette-mac-2.xlsm
    23 KB · Affichages: 1
  • navette-mac-1.xlsm
    28.7 KB · Affichages: 1
Solution
Bonjour,
Si votre plage est amenée à évoluer votre code devra être repris, préférez :
VB: 
Sub InsertFormula()
    Dim Plage, Formule$
    Application.ScreenUpdating = False
    Set Plage = Range("N2:O" & [S65500].End(xlUp).Row)  ' Plage utile colonne O
    Formule = "=SI($S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!N2;"""")"
    Plage.FormulaLocal = Formule    ' Collage formule
    Plage.Value = Plage.Value       ' Copier Coller valeur sur plage utile
    Application.ScreenUpdating = True
End Sub
Trier par date Trier par votes
I

Inconnu95

XLDnaute Nouveau
Finalement je suis arrivé à cela : =SI(S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!$O2;" ") J'aimerais savoir comment l'adapter en langage VBA afin de l'automatiser en cliquant sur un bouton
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Inconnu,
Utilisez l'enregistreur de macro. En rajoutant les " nécessaires, cela donne :
VB: 
ActiveCell.FormulaLocal = "=SI(S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!$O2;"""")"
Remplacez ActiveCell par ce que vous voulez.
 
Vote positif 0 Vote négatif
I

Inconnu95

XLDnaute Nouveau
@BrunoM45 Je m'excuse pour cela n'ayant pas de réponse depuis plusieurs jours j'essayais de maximiser mes chances. Cependant une fois la solution trouvée je n'hésite pas à fermer mes sujets.

@sylvanu Cela fonctionne bien merci. Cependant j'aimerais ajouter la formule aussi ActiveCell.FormulaLocal = "=SI(S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!$N2;"""")" et en faire une boucle svp. J'aimerais aussi qu'une fois la valeur apparaît la formule laisse place à la valeur.

Merci énormément de votre aide
 
Vote positif 0 Vote négatif
I

Inconnu95

XLDnaute Nouveau
Il faudrait que les 2 formules s'exécute tant que la colonne S contient du texte je vous joins le fichier pour que ce soit plus clair. J'ai réussi à trouver une formule pour le coller en valeur :

VB: 
    Range("O2:O29").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 

Pièces jointes

  • navette-mac-2.xlsm
    23 KB · Affichages: 5
  • navette-mac-1.xlsm
    28.7 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Voir PJ avec :
VB: 
Sub InsertFormula()
    Dim Plage, Formule$
    Application.ScreenUpdating = False
    Set Plage = Range("O2:O" & [S65500].End(xlUp).Row)  ' Plage utile colonne O
    Formule = "=SI(S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!$O2;"""")"
    Plage.FormulaLocal = Formule    ' Collage formule 1
    Set Plage = Range("N2:N" & [S65500].End(xlUp).Row)  ' Plage utile colonne N
    Formule = "=SI(S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!$N2;"""")"
    Plage.FormulaLocal = Formule    ' Collage formule 2
    Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • navette-mac-2.xlsm
    24.1 KB · Affichages: 2
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Oups! Plus simple :
VB: 
Sub InsertFormula()
    Dim Plage, Formule$
    Application.ScreenUpdating = False
    Set Plage = Range("O2:N" & [S65500].End(xlUp).Row)  ' Plage utile colonne O
    Formule = "=SI($S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!N2;"""")"
    Plage.FormulaLocal = Formule    ' Collage formule 1
    Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • navette-mac-2 (V2).xlsm
    24.3 KB · Affichages: 2
Vote positif 1 Vote négatif
I

Inconnu95

XLDnaute Nouveau
@sylvanu Impeccable merci beaucoup !! Cela fonctionne. voici le code une fois adapté :

VB: 
Option Explicit
Sub InsertFormula()
    Dim Plage, Formule$
    Application.ScreenUpdating = False
    Set Plage = Range("O2:N" & [S65500].End(xlUp).Row)  ' Plage utile colonne O
    Formule = "=SI($S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!N2;T2)"
    Plage.FormulaLocal = Formule    ' Collage formule 1
    Application.ScreenUpdating = True
        Range("N2:O29").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

@BrunoM45 Pouvez-vous mettre la solution dans le sujet clos svp ?
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Si votre plage est amenée à évoluer votre code devra être repris, préférez :
VB: 
Sub InsertFormula()
    Dim Plage, Formule$
    Application.ScreenUpdating = False
    Set Plage = Range("N2:O" & [S65500].End(xlUp).Row)  ' Plage utile colonne O
    Formule = "=SI($S2='[navette-mac-1.xlsm]Accueil'!$S2;'[navette-mac-1.xlsm]Accueil'!N2;"""")"
    Plage.FormulaLocal = Formule    ' Collage formule
    Plage.Value = Plage.Value       ' Copier Coller valeur sur plage utile
    Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • navette-mac-2 (V3).xlsm
    22.2 KB · Affichages: 3
Vote positif 1 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2010 [Résolu] Modification macro
Réponses
8
Affichages
325
AtTheOne
  • Question Question
Autres Alimenter un ComboBox
2
Réponses
17
Affichages
796
Dranreb
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
431
klin89
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
1 K
job75
T
  • Question Question
Microsoft 365 Besoin d'aide pour transférer des cellules sous plusieurs conditions
Réponses
5
Affichages
480
fanfan38
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
361
Nadou69
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
1 K
sylvanu
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
716
Pac41240
P
C
  • Question Question
Mettre une cellule en jaune quand le contenue correspond a une des valeurs d'une colonne d'un autre onglet
Réponses
9
Affichages
295
job75
B
  • Question Question
XL 2016 VBA formulaire incrémenter un N° de facture selon l'année(mais dates sur deux colonnes)
Réponses
4
Affichages
586
badduke
B
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
267
JMC
J
E
  • Question Question
XL 2016 Comment créer une routine pour coller des valeurs dans différents classeurs fermés sous condition.
Réponses
7
Affichages
593
Eosine
E
  • Question Question
XL 2019 RESOLU Classeur a données croisées
Réponses
11
Affichages
465
Frederic14
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
267
mromain
C
  • Question Question
Microsoft 365 MFC colonnes + description +date du jour
Réponses
5
Affichages
306
fanfan38
N
  • Résolu(e)
Microsoft 365 Lien vers une feuille du classeur
Réponses
2
Affichages
454
Nathan027
N
D
  • Question Question
XL 2016 Utiliser un équivalent de INDIRECT sur des classeurs fermés
Réponses
8
Affichages
679
job75
G
  • Question Question
Microsoft 365 Répartition d'heures sous conditions
Réponses
5
Affichages
310
Guesh
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…