Incroyable, le nombre de fois que l'on doit avoir recours à ces deux fonctions et bien souvent, il me manque toujours une virgule quelque part pour les faire fonctionner correctement.
Par la même occasion, on verra comment déclencher une procédure en cliquant sur une case
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la cellule sélectionnée est B4
If Target.Address = "$B$4" Then
'Appeller les 2 procédures
Call MaProcedure
Call SelectionCases
End If
End Sub
Sub MaProcedure()
MsgBox "On sélectionne les cellules" & Chr(13) & " remplies de la colonne E"
'Sélectionner depuis E4 jusqu'à ce que l'on rencontre une cellule vide
'Voilà pourquoi le mot "six" n'est pas sélectionné
Range("E4", Range("E4").End(xlDown)).Select
End Sub
Sub SelectionCases()
Dim col As String
col = InputBox("quel nombre ?", "Dites un chiffre...", "Ecrivez ici", 250, 250)
If col = "" Then
Exit Sub
Else
Range(Cells(1, 1), Cells(2, CInt(col))).Select
End If
End SubCliquez ici pour télécharger le fichier exemple