If d'un range

Raja -  
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,


Je ne sais pas comment écrire ceci : si le range de mon objet est différent que 5 , replacer le range.

Set objet = Application.InputBox("Choisir 5 cellules ou placer l'objet", "objet", Type:=8)

'If Range(porte_avion) <> 5 then
'end if
If porte_avion.Range <> 5 Then
End If

2 réponses

Réponse 1 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

un range a beaucoup de propriétés et de méthodes.
Ce que tu demandes n'a pas de sens actuellement, sois plus précis en utilisant des mots plutôt qu'un vocabulaire que tu maîtrises mal.
eric

0
Réponse 2 / 2
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le Forum

Tu peux améliorer ceci 
Dim objet As Range
    Set objet = Application.InputBox("Choisir 5 cellules ou placer l'objet", "objet", Type:=8)
    If objet.Cells.Count <> 5 Then MsgBox "Problème"

Mytå
0

Discussions similaires

input signal out of range
marlene -
usman000 -

14 réponses
Ecran noir avec 'out of range" sous windows 10
SAPHIR13600 -
SAPHIR13600 -

5 réponses
comment désactiver out of range
lzri98 -
jeannets -

3 réponses
Problème écran "out of range" au démarrage
Nast79 -
cathy -

8 réponses
Problème d'allumage écran LG : "OUT OF RANGE"
roblaf -
MathiaMan25 -

3 réponses