Macro Cellule active

Version imprimable

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:

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

27/05/2011, 12h13
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

Merci de ton aide PGZ, c'est sympa :ccool:

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

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

Re,

Oui, tu peux essayer cela

Code:

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

27/05/2011, 12h34
Coco_O

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

A NOTER que c'est = et non <> :lol: 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...
27/05/2011, 13h23
pgz

Re,

Citation:

Envoyé par Coco_O

A NOTER que c'est = et non <> :lol:

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

Citation:

Envoyé par Coco_O

Hmmm il me renvoie encore erreur 1004 Application-defined or Object-defined Error :cry:
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

Citation:

Envoyé par pgz

Sur quelle ligne?

PGZ

Sur la ligne 4 :(

Voilà ce que j'essaie de faire...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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
    ' Je définis d'autre variables pour une 2ème boucle for sur l'indice de la ligne
    Dim i As Variant
    Dim inter_m2 As Variant
    Dim iter_tot As Variant
    ' iterm_m vaut 22, le i_m est toujours égale à 9 et dans ma feuille de destination je commence à la ligne 4
    iter_tot = (iter_m - 9 + 4)
 
    For i = 4 To iter_tot
    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
    Exit For
    Next
    Windows("DSIC-Outil-Inputs_v0.3.xlsx").Activate
    Sheets("B-Budget Annuel").Select
        If Cells(i, 11) = "" Then
        ActiveSheet.Range("K4").Select
        Else
        ActiveSheet.Cells(ActiveSheet.Cells(i, 11).End(xlDown).Row + 1, 11).Select
        End If
    Selection.Value = montant_c
    Next

Or bien sur ca ne fonctionne qu'une première fois car après le i_m de s'incrémente pas à 10 à cause du Exit For, mais si je sors pas de la première boucle, la deucième peut pas faire son job. Après je dois avoir une lacune sur la concaténation de boucle for... :( Une idée?

J'ai trouvé!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Variant
    Dim inter_m2 As Variant
    Dim iter_tot As Variant
 
    iter_tot = (iter_m - 9 + 4)
 
    For i = 4 To iter_tot
    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
    ActiveSheet.Range("K" & i).Select
    Selection.Value = montant_c
    i_m = i_m + 1
    Next i

J'ai retiré une boucle for en forcent l'incrémentation de i_m à la main :)