Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel With et Select...

With et Select...

15 réponses
Avatar
Yvan
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Bonjour,

Enlève le point devant "Range" et devant "Cells" aussi d'ailleurs.

--
Salutations
JJ

"Yvan" a écrit dans le message de news:

Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.


Avatar
Alain79
"Yvan" wrote in message
news:
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.


Avatar
garnote
Salut Yvan,

Tu ne peux pas sélectionner A1 de la feuille Magasin
si cette feuille n'est pas activée. Ajoute au début du code :
.Activate.

Serge

"Yvan" a écrit dans le message de news:
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.


Avatar
Alain79
Yvan
Pour moi le code suivant entré dans un module de classeur fonctionnent
Je viens de le tester sur ma machine...

Sub test()
With Worksheets("Sheet1")
.Cells.ClearContents
.Range("A1") = "Phase1"
End With
MsgBox "FirstStep"
With Sheets("Sheet1")
.Cells.ClearContents
.Range("A2") = "Phase2"
End With
End Sub

@+ - Alain

"Yvan" wrote in message
news:
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.


Avatar
isabelle
bonjour yvan,

With Sheets("Feuil1")
.Cells.ClearContents
Application.Goto .Range("A1")
End With

isabelle


Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With



Avatar
Alain79
Yvan
Le code suivant placé dans un Module du classeur foncionne
Testé sur ma machine...

Option Explicit

Sub test()
With Worksheets("Sheet1")
.Cells.ClearContents
.Range("A1") = "Phase1"
.Range("A1").Select
End With
MsgBox "FirstStep"
With Sheets("Sheet1")
.Cells.ClearContents
.Range("A2") = "Phase2"
.Range("A2").Select
End With
End Sub

Alain



"Yvan" wrote in message
news:
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.


Avatar
lSteph
Bonjour,

With Sheets("Magasin")
.Cells.ClearContents
.Activate
[a1].Select

End With


'Cdlt.
lSteph
(si tu es dans un userform mets le Non Modal)


Yvan a pensé très fort :
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With


--
- -

Avatar
Alain79
Très juste - ma feuille était activée... et je n'avais pas vu le pb
Alain

"garnote" wrote in message
news:%
Salut Yvan,

Tu ne peux pas sélectionner A1 de la feuille Magasin
si cette feuille n'est pas activée. Ajoute au début du code :
.Activate.

Serge

"Yvan" a écrit dans le message de news:


Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où
est


l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.






Avatar
lSteph
Bonjour,

chez moi ton code plante dès qu'on est pas sur la feuille voulue,
c'est pourquoi comme Garnote dont je lis le post après avoir écrit le
mien je suggère d'abord .activate
Cdlt.

lSteph

Alain79 avait écrit le 09/12/2006 :
Yvan
Pour moi le code suivant entré dans un module de classeur fonctionnent
Je viens de le tester sur ma machine...

Sub test()
With Worksheets("Sheet1")
.Cells.ClearContents
.Range("A1") = "Phase1"
End With
MsgBox "FirstStep"
With Sheets("Sheet1")
.Cells.ClearContents
.Range("A2") = "Phase2"
End With
End Sub

@+ - Alain

"Yvan" wrote in message
news:
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.



--
- -


Avatar
garnote
Je voulais dire au début du With :
With Sheets("Magasin")
.Activate
.Cells.ClearContents
.Range("A1").Select
End With
Modification nécessaire si tu lances ta macro ailleurs que
dans la feuille Magasin.
Reste à savoir si tu veux sélectionner le A1 de la feuille active
ou le A1 de la feuille Magasin.
Mais peut-être que je n'ai rien compris ;-(

Serge

"garnote" a écrit dans le message de news: %
Salut Yvan,

Tu ne peux pas sélectionner A1 de la feuille Magasin
si cette feuille n'est pas activée. Ajoute au début du code :
.Activate.

Serge

"Yvan" a écrit dans le message de news:
Bonjour,

Comment positionner la cellule active avec la syntaxe With ???

Dans le cas suivant, Excel bloque sur la ligne .Range("A1").Select. Où est
l'erreur ???

With Sheets("Magasin")
.Cells.ClearContents
.Range("A1").Select
End With

--
Merci pour vos réponses.






1 2