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

THOR57 · 17 Avril 2023

Bonjour tous le monde,

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

je m'explique, j'ai un code :

VB:

    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 ^^

VB:

    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,

TooFatBoy · 17 Avril 2023

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

THOR57 · 17 Avril 2023

Effectivement j'ai tester et ca fonctionne aussi :

VB:

Val(me.textbox1.value)

Merci encore

TooFatBoy · 17 Avril 2023

N'hésite pas à te baser sur le message #4 qui te conseille, fort justement, d'abandonner les Select. Ca te fera gagner beaucoup de temps d'exécution.

THOR57 · 17 Avril 2023

TooFatBoy à dit:
N'hésite pas à te baser sur le message #4 qui te conseille, fort justement, d'abandonner les Select. Ca te fera gagner beaucoup de temps d'exécution.

J'ai tester mais sa me test 0 Ligne

VB:

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

TooFatBoy · 17 Avril 2023

Je n'ai pas regardé le code, mais l'idée de ne plus utiliser les Select est la bonne, ça c'est sûr.

Il me semble qu'il manque un point devant un Cells.
Peut-être n'est-il pas indispensable selon la feuille active, mais il me semble mieux de le mettre.

THOR57 · 17 Avril 2023

TooFatBoy à dit:
Je n'ai pas regardé le code, mais l'idée de ne plus utiliser les Select est la bonne, ça c'est sûr.

Il me semble qu'il manque un point devant un Cells.
Peut-être n'est-il pas indispensable selon la feuille active, mais il me semble mieux de le mettre.

Je vais essayer de travailler dessus pour le faire fonctionner ^^

THOR57 · 17 Avril 2023

TooFatBoy à dit:
Je n'ai pas regardé le code, mais l'idée de ne plus utiliser les Select est la bonne, ça c'est sûr.

Il me semble qu'il manque un point devant un Cells.
Peut-être n'est-il pas indispensable selon la feuille active, mais il me semble mieux de le mettre.

Par contre, Tous fonctionne nickel sauf quand je rencontre une cellule contenant #N/A

VB:

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 = Val(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 · 17 Avril 2023

Je n'ai pas le temps de regarder pour l'instant. Peut-être ce soir.

ChTi160 · 17 Avril 2023

Re
Sans fichier il n'est pas évident de tester (de plus j'utilisais mon téléphone)
Là retour au PC Lol
Bonne continuation
Jean marie

ChTi160 · 17 Avril 2023

Re
Un petit Fichier exemple
Jean marie

TooFatBoy · 17 Avril 2023

THOR57 à dit:
Par contre, Tous fonctionne nickel sauf quand je rencontre une cellule contenant #N/A

Déjà, il ne me semble pas normal qu'il ait des #N/A dans une feuille.

Ensuite, as-tu essayé de traiter le cas des erreurs avec un truc genre

Code:

If Not IsError(ActiveCell.Value) Then

Comme je disais plus haut, on n'y voit pas grand chose avec cette indentation farfelue.
Ca devrait être mieux ainsi :

VB:

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 = Val(Me.TextBox1.Value) Then ActiveCell.Offset(0, 17).Value = ComboBox1
           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

THOR57 · 17 Avril 2023

ChTi160 à dit:
Re
Un petit Fichier exemple
Jean marie

Merci beaucoup je vais essayer cet méthode

THOR57 · 17 Avril 2023

TooFatBoy à dit:

Déjà, il ne me semble pas normal qu'il ait des #N/A dans une feuille.

Ensuite, as-tu essayé de traiter le cas des erreurs avec un truc genre

Code:

If Not IsError(ActiveCell.Value) Then

Comme je disais plus haut, on n'y voit pas grand chose avec cette indentation farfelue.
Ca devrait être mieux ainsi :

VB:

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 = Val(Me.TextBox1.Value) Then ActiveCell.Offset(0, 17).Value = ComboBox1
           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

C'est effectivement un peu plus propre

Pour les #N/A ce ne sont pas des erreur de fonction c'est moi qui les avait mi sur les cellule non renseigner ^^ du coup j'ai modifier par des 0 c'est beaucoup mieux ^^

Merci encore pour tous

TooFatBoy · 17 Avril 2023

THOR57 à dit:
Pour les #N/A ce ne sont pas des erreur de fonction c'est moi qui les avait mi sur les cellule non renseigner ^^ du coup j'ai modifier par des 0 c'est beaucoup mieux ^^

Tu veux dire que c'est du texte ?

Dans ce cas, tu peux tester avec

VB:

If ActiveCell.Value <> "#N/A" Then

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

THOR57

XLDnaute Nouveau

TooFatBoy

THOR57

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

THOR57

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

THOR57

XLDnaute Nouveau

THOR57

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

THOR57

XLDnaute Nouveau

THOR57

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Discussions similaires