Discussion :

[Iichham]

Bonjour

je cherche à savoir la syntaxe pour copier la valeur d'une variable dans une cellule d'un autre classeur classeur .. merci d'avance

[Runsh63]

Bonjour Iichham,

Pourrais-tu développer un peu STP car là c'est un plutôt vague. Où se trouve ta variable en entrée ? Est-ce le contenu d'une cellule entière ou une partie de celle-ci, veux-tu passer par une macro, etc... ?

[Iichham]

désolé de ma maladresse de manipulation du au fait que je suis nouveau dans le forum. je suis aussi débutant en VBA (chose qui explique un peu mon code)
en fait j'ai deux classeurs... dans le premier j'ai fais une boucle qui cherche une valeur(15/90) dans la colonne A une fois trouver, j ai mis une deuxième conditions pour si dans la deuxième cellule à droite j'ai la valeur Contrat_Z9 si oui la variable Var prend la valeur de la cellule(0,10)
je veux par la suite copier la valeur renseignée dans Var dans la cellule I:1 de la feuille 1 d'un autre classeur

petit aperçu de mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Copier()
Dim Plage as Range, Cellule As Range, Var As Range
 
Set Plage = Range("A1:A100")
 
For Eche Cellule In Plage
        Select Case Cellule.Value
           case "15/90"
                 If (Cellule.Offset(0,2)="Contrat_Z9") then 
                   set Var = Cellule.Offset(0,10)
                        ' la je veux copier la valeur que prend la variable Var         dans un autre classeur ("Rapport.xlsx") dans la feuille("Feuil1") et dans la cellule ("I:1")
 
End Sub

[Runsh63]

Du code vite fait (non testé) pour copier des cellules d'un classeur à un autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TestCopy()
 
Dim C1 As Workbook, C2 As Workbook
Dim i As Integer
 
Set C1 = Workbooks("Classeur1")
Set C2 = Workbooks("Classeur2")
 
With C1
    With Sheets("Feuil1")
 
        For i = 1 To 100
        Cells(i, 1).Copy C2.Sheets("Feuil1").Cells(i, 1)
        Next i
    End With
End With
 
Set C1 = Nothing
Set C2 = Nothing
 
 
End Sub