XL 2016 If ActiveCell = "Contenu d'une TextBox" Then

[THOR57]

Bonjour tous le monde,

J'ai un petit soucis, sans doute ridicule mais vraiment je bloque,

je m'explique, j'ai un code :

    Sheets("TRAVAUX").Activate

        Range("L1").Select
    
            Do While ActiveCell <> ""
    
            If ActiveCell = "Ville" Then
                ActiveCell.Offset(0, 17).Value = ComboBox1
            End If
                ActiveCell.Offset(1, 0).Select
                
                counter = counter + 1
            Loop

qui fonctionne, par contre je voudrais modifier "If ActiveCell = "Ville" Then" par "If ActiveCell = "(Me.TextBox1.Value)" Then" et la plus rien ne va ^^

    Sheets("TRAVAUX").Activate

        Range("L1").Select
    
            Do While ActiveCell <> ""
    
            If ActiveCell = "(Me.TextBox1.Value)" Then
                ActiveCell.Offset(0, 17).Value = ComboBox1
            End If
                ActiveCell.Offset(1, 0).Select
                
                counter = counter + 1
            Loop

Si quelqu'un pouvait m'aide, se serait vraiment super sympa

Merci d'avance,

Cordialement,

 

[Oneida]

Bonjour,
Enlevez les " " et ( )

 

[ChTi160]

Bonjour THOR57
Tu as mis

"(Me.TextBox1.Value)"

Avec des guillemets donc c'est du texte et pas l'objet que indiques
Met .

If ActiveCell =Me.TextBox1.Value

Bonne journée
Jean marie

 

[ChTi160]

Re
Une autre approche pour éviter les Select
Et autres Activate (non testé depuis mon téléphone).

With Sheets("TRAVAUX")
Derlgn=.Cells(.Rows.Count,12).End(xlUp).Row
 For Lgn =1 To Derlgn
  If .Cells(Lgn,12) <> "" And Cells(Lgn.12)= Me.TextBox1.Value Then
 .Cells(Lgn ,17)=Me.ComboBox1.Value
      counter = counter + 1
End If
Next Lgn
End With

Édit : J'avais oublié la variable Counter!
Bonne journée
Jean marie

 

[THOR57]

Re,

Merci pour vos réponse ultra rapide,

J'avais déjà pensé à enlevez les " " et ( )

Me.TextBox1.Value
(Me.TextBox1.Value)
"(Me.TextBox1.Value)""

Mais cela ne fonctionne pas non plus,
Aprés j'ai oublier de précisé et je ne sait pas si cela change quelque chose mais Me.TextBox1.Value renvoi un chiffre de 0 à 1000 et non plus du texte,

Le Code complet :

Private Sub CommandButton1_Click()

    If MsgBox("Etes-vous sûr de vouloir sauvegarder ?", vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sauvegarde") = vbYes Then

    Dim counter As Integer
    counter = 0

    Sheets("TRAVAUX").Activate

        Range("L1").Select
    
            Do While ActiveCell <> ""
    
            If ActiveCell = Me.TextBox1.Value Then
                ActiveCell.Offset(0, 17).Value = ComboBox1
            End If
                ActiveCell.Offset(1, 0).Select
                
                counter = counter + 1
            Loop
    
    MsgBox (counter & " Lignes ont été vérifiées"), vbOKOnly + vbInformation
    
    MsgBox "Le contenu a été Sauvegarder !", vbOKOnly + vbInformation
    
    End If

End Sub

 

[TooFatBoy]

Bonjour,

1- Es-tu sûr que le Me est correcte ?

2- As-tu vu le message #4 ?

3- Ton counter me semble erroné.
[edit] Au temps pour moi : ton indentation farfelue m'a quelque peu perturbé... [/edit]

 

[THOR57]

Re
Une autre approche pour éviter les Select
Et autres Activate (non testé depuis mon téléphone).

With Sheets("TRAVAUX")
Derlgn=.Cells(.Rows.Count,12).End(xlUp).Row
 For Lgn =1 To Derlgn
  If .Cells(Lgn,12) <> "" And Cells(Lgn,12)= Me.TextBox1.Value Then
 .Cells(Lgn ,17)=Me.ComboBox1.Value
      counter = counter + 1
End If
Next Lgn
End With

Édit : J'avais oublié la variable Counter!
Bonne journée
Jean marie

Bonjour ChTi160,

J'ai tester avec ton code mais il me renvoi "0 Lignes ont été vérifiées"

 

[THOR57]

Bonjour,

1- Es-tu sûr que le Me est correcte ?

2- As-tu vu le message #4 ?

3- Ton counter me semble erroné.
[edit] Au temps pour moi : ton indentation farfelue m'a quelque peu perturbé... [/edit]

La TextBox1 se trouve dans le meme UserForm que le bouton qui enclenche la procédure donc je pense que le Me est correcte meme si il me semble qu'il n'est pas obligatoire,

Apres si je remplace :

If ActiveCell = Me.TextBox1.Value Then

Par :

If ActiveCell = "86" Then

par exemple le tous fonctienne super bien mais si je mais le 86 dans la textbox1 il fait toute la procédure mais ne me trouve plus les ligne correspondante ^^

 

[TooFatBoy]

OK, donc c'est bon pour le Me.


Ta cellule contient un nombre ou un texte ?

 

[THOR57]

OK, donc c'est bon pour le Me.


Ta cellule contient un nombre ou un texte ?

Un Nombre

 

[TooFatBoy]

Donc c'est peut-être bien ça le problème.

 

[THOR57]

Un Nombre

Et se sera toujours uniquement des nombres de 0 à 1000

 

[TooFatBoy]

As-tu essayé avec un truc du genre cdec(me.textbox1.value) ?

 

[THOR57]

Donc c'est peut-être bien ça le problème.

C'est se que je pense également, mais

As-tu essayé avec un truc du genre cdec(me.textbox1.value) ?

Tu es un génie, j'avais essayer plus tôt dans le code avec :

CDbl(me.textbox1.value)

Et sa n'avais pas marcher mais j'ai modifier le code par la suite et je n'ai pas pensé a y revenir ^^
Un grand, Trés Grand Merci à toi !

Les 2 fonctionnent :

[CODE=vb]CDbl(me.textbox1.value)

cdec(me.textbox1.value)

[/CODE]

Merci, Merci, Merci ^^

 

[TooFatBoy]

Je crois qu'il existe aussi tout simplement VAL(...).