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

Worksheets("1").activate

Sinon, si tu prends le nom dans l'éditeur VB, la syntaxe est

Code :

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

Sheets(1).activate 'ou select

A+

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

j'ai modifié le code pour selectionner d'abord et copier après c pareil
il bloque a cette endroit
ma feuille s'appelle bien 1 car j'en ai pas mal et donc je prefere les numéroter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim semaine As String


Private Sub CommandButton1_Click()
  semaine = Sheets("saisie").Range("D4")
  Worksheets("1").Activate
  Range("A:A").Select
    
    Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

**alsimbad** · 25/05/2007, 12h15

moi, j'ai essayé les deux cods qui m'on l'air tout a fait correct, et aucun ne bleque
ni celui la

Sheets("1").Select
Columns("A:A").Select

ni celui ci

range("A:A").select

par contre au niveau de find, ça pose probleme

**ouskel'n'or** · 25/05/2007, 12h25

Comme alsimbad...
Tu n'as pas un espace dans le nom de ta feuille ? Non, sinon ça planterait plus haut...

Ta feuille n'est pas protégée... des fois ?
?

**shrekos007** · 25/05/2007, 15h16

non la feuille n'est pas activer par contre j'ai creer ma premiere feuille "1" puis j'en ai fait des copies pour les autres personnes qui s'appelle "2" "3" etc

peut etre un probleme de memoire je comprend pas

je viens de tester sur une meme feuille cela marche c'est à dire si je met un bouton sur la feuil1 est que je lui demande au clic de selectionner la colonne A il le fait, par contre si je lui demande de selectionner la colonne A de la feuil2 il ne veut pas.

Code :

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

1
2
3
4
5
6
7
 
celle la NOK
Sheets("Feuil2").Select
    Columns("A:A").Select
celle la OK
Sheets("Feuil1").Select
    Columns("A:A").Select

**ouskel'n'or** · 25/05/2007, 15h54

Alors je ne vois qu'une solution : Tu supprimes ta feuille "1" et tu en crées une nouvelle que tu nommes pompeusement "1" et tu refais l'essai.
Faut bien qu'on en sorte

Tu dis
A+

**shrekos007** · 25/05/2007, 16h08

C Pareil

Pourquoi Sur La Meme Feuille Cela Marche Et Pas Lorsque Je Lui Demande De Selectionner Une Colonne Sur Une Autre Feuille

**ouskel'n'or** · 25/05/2007, 16h09

Il est où ton code ?

**melodyyy** · 25/05/2007, 16h22

moi je dirais si tu connais le début et la fin de ta colonne indique le.
Plutot que

Code :

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

1
2
 
Range ("A:A").Select 'ou activate

Essai plutot par exemple

Code :

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

1
2
 
Range ("A1:A36").Select

**melodyyy** · 25/05/2007, 16h23

Autre chose la 2ème feuille dont tu parles, c'est un onglet du même classeur ?

**shrekos007** · 25/05/2007, 16h26

oui c un onglet du meme classeur
meme celui la il marche pas
je clic sur le bouton et hop message erreur

Code :

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

1
2
3
4
Private Sub CommandButton3_Click()
Sheets("Feuil1").Select
Range("A1:A36").Select
End Sub

**alsimbad** · 25/05/2007, 16h28

tu n'aurais pas une macro sur la worksheet par hasard du genre
selection quand change then selection pas changer

**melodyyy** · 25/05/2007, 16h32

Ok alors pour que tu vois, ferme ton excel et toutes tes feuilles excel. D'ailleurs attention, quand tu fais une macro sur un seul classeur n'ouvre pas les autres, ferme tout parce que les macro se mélangent entre elles...

ouvre un classeur quelconque vierge et tape la macro dans thisworkbook dans VBA éditor..
si ça marche pas je vois pas

**shrekos007** · 25/05/2007, 16h35

je n'ai aucune macro

j'ai supprimé tous les modules dans vba

**ouskel'n'or** · 25/05/2007, 16h37

Envoyé par shrekos007

oui c un onglet du meme classeur
meme celui la il marche pas
je clic sur le bouton et hop message erreur

Code :

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

1
2
3
4
Private Sub CommandButton3_Click()
Sheets("Feuil1").Select
Range("A1:A36").Select
End Sub

C'est normal, tu as oublié que ta feuille s'appelle "1"
Blague dans le coin, une fois que tu auras exploré les deux solutions de melodyyyyyyy et d'alsimbad, toutes deux inspirées, dois-je dire, tu crées un nouveau classeur, tu déplaces les macros d'un classeur dans l'autre (ça crée une copie) et tu refais tes expériences. Evite de copier les feuilles

A+

la methode select de la classe range a échoué

Macros et VBA Excel

Discussions similaires

Partager

Partager