Discussion :

[Coco_O]

Bonjour à tous,
bientôt le we courge!

Voilà mon problèle. La ligne en rouge me renvoie une erreur 1004.
En gros je veux copier mes valeurs dans la colonne K (=11) à partir de la ligne 4.
Or, la colonne est vide à l'origine donc se baser sur la première cellule non-vide doit lui poser problème. Quelle solution s'offre à moi?

Merci à tous...

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
23
24
Dim montant_c As Variant
    Dim i_m As Variant
    Dim iter_m As Variant
    
    Windows("DSIC-Outil-Plan d'Activités-CSOL Fin_V0.11.xlsx").Activate
    Sheets("Coût non jh").Select
    Range(Range("G9"), Range("G9").End(xlDown)).Select
    iter_m = 9
    
    While ActiveSheet.Cells(iter_m, 7).Value <> ""
    iter_m = iter_m + 1
    Wend
    
    For i_m = 9 To iter_m
    Windows("DSIC-Outil-Plan d'Activités-CSOL Fin_V0.11.xlsx").Activate
    Sheets("Coût non jh").Select
    Range(Range("G9"), Range("G9").End(xlDown)).Select
    montant_c = Cells(i_m, 7).Value
    Windows("DSIC-Outil-Inputs_v0.3.xlsx").Activate
    Sheets("B-Budget Annuel").Select
    Cells(ActiveSheet.Cells(4, 11).End(xlDown).Row + 1, 11).Select    
    Selection.Value = montant_c
    
    Next

[pgz]

Bonjour.

Tu peux tester le contenu de K4. Si c'est vide, tu commences là. S'il y a quelque chose, tu cherches la première ligne vide comme tu le fais actuellement.

Cdlt,

PGZ

[Coco_O]

Merci de ton aide PGZ, c'est sympa

Alors si je comprends bien, je fais un test du genre :

Code :

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

1
2
3
4
IF Range("K4") <> "" THEN Range("K4").Select
ELSE
Cells(ActiveSheet.Cells(4, 11).End(xlDown).Row + 1, 11).Select
End IF

[pgz]

Re,

Oui, tu peux essayer cela

Code :

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

1
2
3
4
5
IF Range("K4") <> "" THEN 
    ActiveSheet.Range("K4").Select
ELSE
    ActiveSheet.Cells(ActiveSheet.Cells(4, 11).End(xlDown).Row + 1, 11).Select
End IF

PGZ

[Coco_O]

Hmmm il me renvoie encore erreur 1004 Application-defined or Object-defined Error

A NOTER que c'est = et non <> mais ca ne résound pas le pb. Il me rentre bien ma première valeur, mais dès que la boucle for fait une deuxième iteration, ca plante...

[pgz]

Re,

A NOTER que c'est = et non <>

Ca c'est bien vrai. Comme quoi ...

Hmmm il me renvoie encore erreur 1004 Application-defined or Object-defined Error
Il me rentre bien ma première valeur, mais dès que la boucle for fait une deuxième iteration, ca plante...

Sur quelle ligne?

PGZ