If d'un range

Raja -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention - 24 nov. 2014 à 00:07

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

Afficher la suite

A voir également:

2 réponses

Réponse 1 / 2

eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281

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

Réponse 2 / 2

Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention 956

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å

Discussions similaires

Ecran BenQ "Input signal out of range"

comment désactiver out of range

Ecran noir avec 'out of range" sous windows 10

Problème écran "out of range" au démarrage

VBA : Range avec références variables..

Discussions similaires

Newsletters