Sujet Précédent Sujet Suivant

Transfert automatique d'un caractère précis entre fichier Excel

Fermé
Kizard - 18 nov. 2020 à 11:20
 Kizard - 18 nov. 2020 à 16:19
Bonjour,

Alors voila, je cherche simplement a faire un programme permettant de faire passé/transmettre un nombre ou un caractère précis dans une colonne précise, c'est a dire par exemple:
Si dans le fichier ---.xlsx la case A1 contient le nombre 1 alors il sera dans la colonne B5 du fichier actuelle

Mon exemple tient de simple mot, je ne savais pas comment l'expliquer d'une autre maniere désolé.
Je suis sur Excel avec Microsoft VBA
Merci d'avance
Cordialement
A voir également:

1 réponse

Réponse 1 / 1
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
18 nov. 2020 à 15:09
Bonjour Kizard, bonjour le forum,

Pas très précis tout ça... Tu adapteras : 
Sub Macro1()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (OngletDestination)
Dim CC As Workbook 'déclare la variable CC (Classeur Cible)
Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)

Set CD = ThisWorkbook 'définit la classeur destination CD
Set OD = CD.Worksheets("Feuil1") 'définit l'onglet destination OD (à adapter à ton cas)
Set CC = Workbooks("---.xlsx") 'définit la classeur coble CC (à adapter et il faut qu'il soit ouvert)
Set OC = CC.Worksheets("Feuil1") 'définit l'onglet cible OD (à adapter à ton cas)
OD.Range("B5").Value = OC.Range("A1").Value 'récupère dans B5 de l'onglet destination la valeur de A1 de l'onglet cible
End Sub
0
Kizard
Modifié le 18 nov. 2020 à 16:19
C'était rapide Merci
Je ne m'y connais pas beaucoup à ce sujet la désolé
0