Discussion :

[CélineM]

Bonjour,
J'ai un petit problème, j'aimerais sélectionner une ligne de ma feuille, mais celle ci peut varier suivant les éxecutions. C'est à dire qu'en fait on cherhce la ligne suivant la valeur donnée par l'utilisateur.
Voici mon code , je pense qu'il y a un problème de syntaxe mais je ne la connais pas ???

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
Dim n As Integer
Dim i As Integer
i = Range("J18")
n = i + 66
    Sheets("Rapport1").Select
    Range("R "& n & "C5"":R" & n & "C6"")
    Selection.Copy
    Sheets("Feuil1").Select
    Range("C34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D34").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("C35").Select
    ActiveSheet.Paste
End Sub

[flo_flo]

Bonjour,

Code :

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

1
2
3
4
5
 
Dim n As Integer
Dim i As Integer
i = Range("J18")
n = i + 66

Déjà ici il y a un souci : i est un entier par définition, mais tu lui attribues comme valeur une cellule...

Code :

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

1
2
 
i = Range("J18").Value

serait peut-être déjà plus approprié.

Si ca ne marche toujours pas, peut-être que le souci vient de ta ligne en gras, je laisse quelqu'un d'autre t'expliquer dans ce cas

[CélineM]

Merci j'ai corrigé mon erreur mais le problème ne vient pas d'ici il vient en effet de la ligne en gras

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
Dim n As Integer
Dim i As Integer
i = Range("J18").value
n = i + 66
Sheets("Rapport1").Select
Range("R "& n & "C5"":R" & n & "C6"")
Selection.Copy
Sheets("Feuil1").Select
Range("C34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D34").Select
Application.CutCopyMode = False
Selection.Cut
Range("C35").Select
ActiveSheet.Paste
End Sub

[mordrhim]

deja peux tu mettre ton code entre balise stp ? (plus lisible) tu selectionne ton code et tu clique sur le petit #

Code :

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

Range("R "& n & "C5"":R" & n & "C6"")

a remplacer par

Code :

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

Range("R " & n & ":C5,R" & n & ":C6")

[flo_flo]

On peut utiliser du R1C1 avec Range ?

[CélineM]

Merci mais j'ai toujours un problème, je ne suis pas très douée en VBA apparemment l'option range ne lui plait pas, en fait cette ligne me permettrai de selectionner la ligne dans ma feuille et ensuite de la coller dans une autre feuille ????

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim n As Integer
Dim i As Integer
i = Range("J18").Value
n = i + 62
    Sheets("Rapport1").Select
    Range("R " & n & ":C5,R" & n & ":C6").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("C34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[CélineM]

Apparemment pas de R1C1 avec le range vu que ça ne marche pas mais par quoi je peux le remplacer alors ???

[mordrhim]

tu veux faire quoi exactement ?

pour copier une ligne

Code :

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

Sheets("Rapport1").Rows(n).Copy

pour coller

Code :

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

1
2
Sheets("Feuil1").Range("C34").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

mais ca ne fonctionnera pas car tu ne peux pas coller une ligne vers une cellule.

mais si tu veux copier les cellules de ligne n et de colonnes 5 et 6 alors tu peux faire ca

Code :

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

Sheets("Rapport1").Range(Cells(n,5),Cells(n,6)).Copy

[CélineM]

En fait je voudrais récuperer 2 valeurs d'une feuille pour les coller dans une autres. Le problème est que la valeur que je souhaite récupérer ne sera pas toujours la même si je les veux au mois de mai je souhaite prendre les valeurs correspondant au mois de mai et ainsi de suite pour le mois de juin. J'éspère que t'as compris car c'est pas facile à expliquer ou à comprendre

[caloumaya]

si ton fichier n'es pas trop gros joint le et je vais regarder

[CélineM]

Bonjour,
Voilà mon fichier ça n'est pas grand chose
mais le collage spécial beug aussi, je ne sais plus quoi faire ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim s As Integer
Dim j As Integer
j = Range("J18").Value
s = j + 61
    Sheets("Rapport1").Select
    Sheets("Rapport1").Range(Cells(s, 5), Cells(s, 6)).Copy
    Selection.Copy
    Sheets("Feuil1").Select
    Range("C34:D34").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'

[caloumaya]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim s As Integer
Dim j As Integer
j = Range("J18").Value
s = j + 61
    Sheets("Rapport1").Select
    Sheets("Rapport1").Range(Cells(s, 5), Cells(s, 6)).Copy
 
    Sheets("Feuil1").Select
    Range("C34:D34").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Je pense que comme celà ça devrait marcher