Ne trouve pas une cellule en fonction d'un userform (résolu)

[Cougar]

Bonjour le forum,

À l'aide d'un userform, je sélection une date. Suite à cela, je recherche la cellule contenant la date pour effacer la colonne contenant cette date.

Le problème est que la cellule n'est pas trouvée ?

Voir le fichier joint.

Merci

 

[Dranreb]

Re : Ne trouve pas une cellule en fonction d'un userform

Bonjour.
Utilisez ComboBox1.ListIndex pour calculer votre colonne.
Parce que la propriété Value d'un ComboBox ne peut être que du texte. Normal qu'il n'en trouve pas, puisqu'il n'y a que des dates !
Et au Userform_Initialize, au lieu de For i = 5 To 30 faites donc plutôt For i = 5 To 29 Step 2, comme ça ce sera toujours une date, et ComboBox1.ListIndex * 2 + 5 sera le n° de la colonne choisie.

 

[pierrejean]

Re : Ne trouve pas une cellule en fonction d'un userform

Bonjour cougar

Teste:

With Sheets("Feuil1")
    datetrouvee = CDate(ComboBox1)
    
    Set celluletrouvee = Range("e1:z1").Find(datetrouvee, lookat:=xlWhole)
    
    If celluletrouvee Is Nothing Then
        MsgBox ("Pas trouvé la date dans Feuil1")
        Unload Me
        Exit Sub
    Else
        ligne = celluletrouvee.Activate
        Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(500, 1)).Select
        Selection.Columns.EntireColumn.Delete Shift:=x1ToLeft
    End If
End With


    Range("e1").Select


With Sheets("Feuil2")
    datetrouvee1 = ComboBox1


    Set celluletrouvee1 = Range("e1:z1").Find(datetrouvee1, lookat:=xlWhole)


    If celluletrouvee1 Is Nothing Then
        MsgBox ("Pas trouvé la date dans Feuil2")
        Unload Me
    Else
        ligne = celluletrouvee1.Activate
        Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(500, 0)).Select
        Selection.Columns.EntireColumn.Delete Shift:=x1ToLeft
    End If


    Range("e1").Select
    
End With
End Sub

 

[job75]

Re : Ne trouve pas une cellule en fonction d'un userform

Bonjour Cougar, salut pierrejean, heureux de te croiser 🙂

Private Sub CommandButton1_Click() 'bouton VALIDER
If Not IsDate(ComboBox1) Then Exit Sub
Dim i As Variant
i = Application.Match(CDbl(CDate(ComboBox1)), Rows(1), 0)
If IsError(i) Then MsgBox "Date introuvable !": Exit Sub
Columns(i).Delete
End Sub

Edit : hello Dranreb, je ne t'avais pas vu.

A+

 

[Cougar]

Re : Ne trouve pas une cellule en fonction d'un userform

Bonjour Dranreb, pierrejean, le forum,

Merci pour vos solutions. Le tout est fonctionnel.

Encore merci