Variable texte et sélection plage

Bonjour,

Je n'arrive pas a affecter à la variable TexteCont la valeur texte de la 1er case de la sélection d'une plage!!

En vous remerciant pour vos retours.

Dim TexteCont As String
Dim ref As range
Dim nb_row As Byte

Set ref = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)

range("A1") = Selection.Row 'ligne haut
ActiveCell.Offset(0, 0).range("A1").Select

TexteCont = ActivCell.value

'MsgBox TexteCont & "TexteCont2"

bonjour,

essaie ceci

Set ref = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)

TexteCont = ref.Cells(1, 1) 'première cellule en haut à gauche de la plage ref

sinon il manque un e dans ton instruction ActivCell.Value

note que

ActiveCell.Offset(0, 0).range("A1").Select

va sélectionner la cellule qui est active avant l'exécution de la macro ou celle qui aura été sélectionnée par une instruction .select, mais pas celle sélectionnée par l'instruction inputbox

J' ai fait un test avec de partir, cela semble fonctionnr.