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 Selection d'un champ

Selection d'un champ

2 réponses
Avatar
apt
Bonsoir,

j'aimerais selectionner ces champs d'une maniere g=E9n=E9rale :

Range("A1:D1").Select
Range("A15:D15").Select
Range("A30:D30").Select
Range("A45:D45").Select

j'ai fait ce code:

Dim Ta (1 To 4)
Ta(1) =3D 0
Ta(2) =3D 15
Ta(3) =3D 30
Ta(4) =3D 45

'et selon la valeur de x je ferais ma selection :
If x=3D1 Then
Range("A" & x:"D" & x).select
Else
Range("A" & Ta(x)):"D" & Ta(x))).select
End If

mais il ne marche pas

Qqn peut-il me renseigner ?

Merci.
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
michdenis
Bonjour Apt,

Tu y étais presque, tu n'avais qu'une petite erreur de syntaxe :

Dim x as integer
Dim Ta(1 To 4)
Ta(1) = 0
Ta(2) = 15
Ta(3) = 30
Ta(4) = 45

x = 1

'et selon la valeur de x je ferais ma selection :
If x = 1 Then
Range("A" & x & ":D" & x).Select
Else
Range("A" & x & ":D" & x).Select
End If


Salutations!



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


Bonsoir,

j'aimerais selectionner ces champs d'une maniere générale :

Range("A1:D1").Select
Range("A15:D15").Select
Range("A30:D30").Select
Range("A45:D45").Select

j'ai fait ce code:

Dim Ta (1 To 4)
Ta(1) = 0
Ta(2) = 15
Ta(3) = 30
Ta(4) = 45

'et selon la valeur de x je ferais ma selection :
If x=1 Then
Range("A" & x:"D" & x).select
Else
Range("A" & Ta(x)):"D" & Ta(x))).select
End If

mais il ne marche pas

Qqn peut-il me renseigner ?

Merci.
Avatar
apt
Mille merci mechdenis.

Mes sallutations les plus distinguées