If d'un range

Raja -  
Mytå Messages postés 4246 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

  1. 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

    0
  2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
     
    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