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 Sélection de boutons en VB

Sélection de boutons en VB

2 réponses
Avatar
JCL
Bonjour à toutes et tous !

J'ai besoin de remplacer une collection de boutons et de 'group box' dans
une série de documents mais j'ai un problème, j'utilise :
ActiveSheet.Shapes.Range(Array("Group Box 1", "Option Button 2", "Option
Button 3", "Option Button 4")).Select
pour faire ma sélection mais hélas, suivant les feuilles, les boutons et
group box n'ont pas toujours le même numéro.
De plus pour simplifier, d'autre boutons et group box ne doivent pas être
remplacés...

Un seule chose est sûre à 100%, ma collection de boutons et le 'group box'
sont toujours situé au même endroit dans la feuille, ligne 17 à 27...

Est'il possible de sélétionner tous les objets situés entre les lignes 17 et
27 de ma feuille ??
Si OUI, comment ? SVP !

Merci de votre aide.
JC
Signaler un problème avec ce contenu

2 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
Avatar
jps
heu...une chose qui est sûre à 90% n'est pas vraiment une chose vraiment
sûre :-)))))
jps

"JCL" a écrit dans le message de news:
%
Bonjour à toutes et tous !

J'ai besoin de remplacer une collection de boutons et de 'group box' dans
une série de documents mais j'ai un problème, j'utilise :
ActiveSheet.Shapes.Range(Array("Group Box 1", "Option Button 2", "Option
Button 3", "Option Button 4")).Select
pour faire ma sélection mais hélas, suivant les feuilles, les boutons et
group box n'ont pas toujours le même numéro.
De plus pour simplifier, d'autre boutons et group box ne doivent pas être
remplacés...

Un seule chose est sûre à 100%, ma collection de boutons et le 'group box'
sont toujours situé au même endroit dans la feuille, ligne 17 à 27...

Est'il possible de sélétionner tous les objets situés entre les lignes 17
et
27 de ma feuille ??
Si OUI, comment ? SVP !

Merci de votre aide.
JC




Avatar
Alain CROS
Bonjour,

J'imagine que tu select pour delete.

Sub SuppShapes()
Dim Sh As Shape, Pos&
For Each Sh In ActiveSheet.Shapes
With Sh
Pos = .TopLeftCell.Row
If Pos > 17 And Pos < 27 Then .Delete
End With
Next Sh
Set Sh = Nothing
End Sub

Alain CROS

"JCL" a écrit dans le message de news: #
| Bonjour à toutes et tous !
|
| J'ai besoin de remplacer une collection de boutons et de 'group box' dans
| une série de documents mais j'ai un problème, j'utilise :
| ActiveSheet.Shapes.Range(Array("Group Box 1", "Option Button 2", "Option
| Button 3", "Option Button 4")).Select
| pour faire ma sélection mais hélas, suivant les feuilles, les boutons et
| group box n'ont pas toujours le même numéro.
| De plus pour simplifier, d'autre boutons et group box ne doivent pas être
| remplacés...
|
| Un seule chose est sûre à 100%, ma collection de boutons et le 'group box'
| sont toujours situé au même endroit dans la feuille, ligne 17 à 27...
|
| Est'il possible de sélétionner tous les objets situés entre les lignes 17 et
| 27 de ma feuille ??
| Si OUI, comment ? SVP !
|
| Merci de votre aide.
| JC
|
|