la methode select de la classe range a échoué

**shrekos007** · 25/05/2007, 10h18

je suis bloqué sur la ligne en rouge

merci

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
25
26
27
28
29
30
31
32
33
34
35
36
Dim semaine As String

Private Sub CommandButton1_Click()
semaine = Sheets("saisie").Range("D4")
    Range("C8:D8").Select
    Selection.Copy
    Sheets("1").Select
    
    Columns("A:A").Select
    
    Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
   ' selecion.Offset(0, 2).Select
  '  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   ' :=False, Transpose:=False
    
   ' Sheets("SAISIE").Select
   ' Range("E8:Y8").Select
   ' Selection.Copy
   ' Sheets("1").Select
   ' Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
   ' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   ' MatchCase:=False, SearchFormat:=False).Activate
  '  selecion.Offset(0, 10).Select
       
   ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    ':=False, Transpose:=False
    'Sheets("SAISIE").Select
       
    
   
MsgBox " Modification effectué "


End Sub

**illight** · 25/05/2007, 11h18

essaye de mettre

Code :

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

range("A:A").select

à la place

**shrekos007** · 25/05/2007, 11h21

problème identique

pour info la variable "semaine" est de cette forme "01SEM03"

je pense que cela doit venir de la

merci

**illight** · 25/05/2007, 11h24

c'est quoi le but de ton bouton la ? parce qu ememe en lisant je vois pas trop ce que tu veux faire

**shrekos007** · 25/05/2007, 11h30

copier les valeurs de la feuille saisie sur une autre feuille d'archive en fonction de 2 critères la semaine et le nom de la personne

j'ai rajouté des commentaires en rouge.

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
Private Sub CommandButton1_Click()
semaine = Sheets("saisie").Range("D4")
    Range("C8:D8").Select
    ' je selectionne les premières cellules à copier de la première personne
    Selection.Copy
    Sheets("1").Select
    'je selectionne le classeur d'archive de cette personne
    Range("A:A").Select
    
    Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    'je cherche dans la colonne A la cellule ou se trouve la variable semaine
   ' selecion.Offset(0, 2).Select
  '  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   ' :=False, Transpose:=False
    'je me decale de 2 cases et je copie.

**ouskel'n'or** · 25/05/2007, 11h45

Déjà, ta copie ne fonctionnera pas.
Tu ne peux pas chercher l'endroit où tu vas coller après avoir copié. Tu dois la chercher avant et, si tu utilises les "select" ceci ou cela, te placer à l'endroit où tu veux coller avant de copier.
Ensuite, tu es sûr du nom de ta feuille Sheets("1") ?
Si le nom porté sur l'onglet est "1", alors essaie

Code :

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