Sélection de plage
Bonjour à tous,
Comme je débute en VBA, il faut bien que je me trouve bloqué sur un programme...
Je souhaite faire un programme qui ouvrira une Msgbox me demandant de sélectionner une zone et ensuite le programme me dira combien de colonnes et lignes j'aurai sélectionné. Mais voilà, c'est toujours en rouge.
voici le programme:
Sub SelectPlage()
Dim Plage As Range, Nbli As Integer, nbCol As Integer
Set Plage = Application.InputBox("Sélectionner une plage à la souris.", "plage", Type:=8)
Nbli = Plage.Rows.Count
nbCol = Plage.Columns.Count
MsgBox "La plage est : " & Plage.Address & Chr(10) & "Vous avez sélectionné " & Nbli & " ligne" & "IIf(Nbli>1," s.",".") & chr(10) & "et " & NbCol & " colonne" & IIf(NbCol>1," s.", ".")
End Sub
un peu d'aide serait la bienvenue !! Merci d'avance les amis !
- Messages
- 3'678
- Excel
- 365, 2019
- Inscrit
- 11/04/2020
- Emploi
- Formateur bureautique, dvpt de fichiers
Bonjour,
Il y avait un guillemet en trop devant le 1er iif.
Et puis des espaces et un point en trop aussi, mais ça c'est juste pour l'esthétique.
Sub SelectPlage()
Dim Plage As Range, Nbli As Integer, nbCol As Integer
Set Plage = Application.InputBox("Sélectionner une plage à la souris.", "plage", Type:=8)
Nbli = Plage.Rows.Count
nbCol = Plage.Columns.Count
MsgBox "La plage est : " & Plage.Address & Chr(10) & "Vous avez sélectionné " & Nbli & " ligne" & IIf(Nbli > 1, "s", "") & Chr(10) & "et " & nbCol & " colonne" & IIf(nbCol > 1, "s.", ".")
End Sub