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 pourquoi ma 'range' reste à nothing' ?

pourquoi ma 'range' reste à nothing' ?

1 réponse
Avatar
Le Nordiste
Bonjour tertous,

Je comprends pas pourquoi une 'range' reste =E0 nothing'
dans le code ci-dessous :

'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Dim plageValidation As Range 'plage avec listes de
validation
Dim plageCellule As Range 'cellule seule de la
plageValidation

'D=C9TERMINATION DE LA PLAGE DES COLONNES UTILIS=C9ES
' bas=E9e sur les =E9tiquettes saisies en ligne 2
intNbreColonne =3D Range("A2").End(xlToRight).Column

With ActiveSheet
Set plageValidation =3D .Range("A" & lngLigne) & ":" &
Range(Cells(lngLigne, 1), _
Cells(lngLigne, intNbreColonne)).Select
End With

For Each plageCellule In plageValidation
'c'est ici que 'plageCellule' reste d=E9sesp=E9rement =E0 'nothing'
.=2E....
mon code ici
.=2E....
next plageCellule
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D


Remerciements anticip=E9s,
Signaler un problème avec ce contenu

1 réponse

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
Pierre Fauconnier
Bonjour

Dans ton code,
-----
With ActiveSheet
Set plageValidation = .Range("A" & lngLigne) & ":" &
Range(Cells(lngLigne, 1), _
Cells(lngLigne, intNbreColonne)).Select
End With
-----
le .select est de trop. Normalement, tu dois avoir un débogage, sauf gestion
d'erreur avec on error resume next...


Ok?


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci



"Le Nordiste" a écrit dans le message de
news:
Bonjour tertous,

Je comprends pas pourquoi une 'range' reste à nothing'
dans le code ci-dessous :

'============================================================ Dim plageValidation As Range 'plage avec listes de
validation
Dim plageCellule As Range 'cellule seule de la
plageValidation

'DÉTERMINATION DE LA PLAGE DES COLONNES UTILISÉES
' basée sur les étiquettes saisies en ligne 2
intNbreColonne = Range("A2").End(xlToRight).Column

With ActiveSheet
Set plageValidation = .Range("A" & lngLigne) & ":" &
Range(Cells(lngLigne, 1), _
Cells(lngLigne, intNbreColonne)).Select
End With

For Each plageCellule In plageValidation
'c'est ici que 'plageCellule' reste désespérement à 'nothing'
......
mon code ici
......
next plageCellule
============================================================

Remerciements anticipés,