Valeur textbox = Range

Bonjour à tous

Je voudrai dans mon code remplacer les valeurs de cellule par la valeur entrée dans un textbox.

Exemple

Au lieu => Range("A1:A25").Select

A1 serait remplacé par la valeur du Textbox1

A25 serait remplacé par la valeur du Textbox2

Merci d'avance

Bonsoir

Un exemple de ton fichier avec le code vba serait le bienvenu

Crdlt

Voila mon fichier

Merci

9macro-mfc.xlsm (18.02 Ko)

Trés étrange comme fichier pas beaucoup d'infos

@Joco7915

Oui je sais c'est juste un fichier pour tester la macro MFC qui se trouve dans l'Userform

merci

4macro-mfc-v2.xlsm (20.55 Ko)

Bonjour netparty, Joco7915, le forum,

un essai....(il faut saisir une adresse dans les TextBox, ex: A1)....

Private Sub BP_MFC_Click()
 Dim plage As Range '..............................................définit la variable plage
  If Tb_Debut = "" Or Tb_Fin = "" Then Unload Me: Exit Sub '.......si une des Textbox est vide, on sort de la procédure
  With Sheets("Feuil1") '..........................................agit sur Feuil1 uniquement
   .Cells.FormatConditions.Delete '................................efface les MFC
   Set plage = .Range(Tb_Debut & ":" & Tb_Fin) '...................définit la plage en fonction des Textbox
     With plage
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=TROUVE(""*"";A1;1)" '....................................crée la MFC
      .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior '...............conditions de remplissage
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        End With
      .FormatConditions(1).StopIfTrue = False
     End With
  End With
  Unload Me
End Sub

Cordialement,

Bonjour @xorsankukai

Merci pour ton code, c'est super mais juste une petite remarque,

Dans la partie du code :

"=TROUVE(""*"";A1;1)" '....................................crée la MFC

Est-il possible de remplacer A1 par Tb_Debut

Bonne journée

Rechercher des sujets similaires à "valeur textbox range"