Problème affichage UserForm

[Lone-wolf]

Rebonjour,

après quelques modifications dans le code, je n'arrive plus à afficher le formulaire. J'ai l'erreur d'éxecution 91, variable de bloc with non définie, sur UserForm1.Show. Je pense que ça doit venir d'une ligne de code qui n'est pas conforme. Je joint le fichier, si quelqu'un pourrais voir ce qui ne vas pas, ça serait sympa.


A+ 😎

 

[mécano41]

Re : Problème affichage UserForm

Bonjour,

Si tu le fais en pas-à-pas (F8) tu vois que le problème doit venir du Userfom_Initialize, à la ligne :

Set rechnom = .Cells.Find(ActiveCell.Address)

dans laquelle il ne trouve rien dans la colonne1 de la feuille DATA (puisqu'il n'y a rien!) ; ensuite ici :

lig = rechnom.Row

il fait un erreur car rechnom=nothing

...enfin, je pense que cela vient de là...

Cordialement

 

[Lone-wolf]

Re : Problème affichage UserForm

Bonjour mécano,

tu as effectivement raison. J'ai réécrit le code comme ceci:

Private Sub UserForm_Initialize()

Dim rech, lig

If Me.Objet.Value = ActiveCell.Value Then

With Sheets("Data").Columns(4)
    Set rech = .Cells.Find(ActiveCell.Value)
End With
lig = rech.Row
With Sheets("Commentaires")
    Me.Objet.Value = .Cells(lig, 1)
    Me.Heure.Text = .Cells(lig, 2).Text
    Me.Emplacement.Value = .Cells(lig, 4)
    Me.Nom.Value = .Cells(lig, 5)
    Me.Prenom.Value = .Cells(lig, 6)
    Me.Tel.Value = .Cells(lig, 7)
End With
End If
Set rech = Nothing

j'éspère que c'est plus juste. En tous cas il s'affiche (pour le moment).

Merci beaucoup pour ton intervention. Mais je ne suis pas encore sorti de l'auberge comme on dit.

Maintenant, j'aimerais ajouter une macro de recherche aux trois compteur avec ces conditions:
faire une recherche basée sur l'adresse des cellules et la date et adapter cette macro que j'avais fait mais pour une seule cellule.

Sub Jours_QuandChangement()
Dim j, k As Long
Dim line1, line2 As String
Sheets("Agenda").Activate

With Sheets("Agenda")
For j = 3 To 9
For k = 4 To 17
If .Cells(3, j).Text <= Left(Date, 2) + 5 Then
.Cells(k, j).Interior.Color = RGB(253, 233, 217)
Else
.Cells(k, j).ClearContents
.Cells(k, j).Interior.Color = xlNone
End If
If .Cells(k, j).Value <> "" Then
ActiveCell.Interior.Color = RGB(242, 220, 219)
End If
If .Cells(3, j).Text = Left(Date, 2) Then
.Cells(k, j).Interior.Color = RGB(253, 233, 217)
line1 = Sheets("Data").Range("d2").Value 
ActiveCell.Value = line1
ActiveCell.Interior.Color = RGB(242, 220, 219)
End If
Next k
Next j
End With
End Sub

En dépassant la semaine (le 21), la macro efface tout et si on reviens en arrière(sur la semaine), celle-ci réaffiche les coordonnées de chaque cellule. Ce procédé doit être donc fait sur les 3 compteurs.


A+ 😎

 

[mécano41]

Re : Problème affichage UserForm

Bonjour,

Dans ta solution, je ne vois pas comment tu vas contrôler (enfin c'est faisable mais pas très simple...) que les dates sont valides (selon longueur mois, année bissextile...)

Je ne suis pas très habile dans la manipulation des dates mais je me demande si cela ne serait pas plus simple d'utiliser un calendrier. Voici une version avec DTPicker (voir ce fil pour avoir la raison du bout de code bizarre dans ThisWorkbook - tu y trouveras l'aide de nos amis sur ma question et des renseignements sur d'autres types de calendriers) :

https://www.excel-downloads.com/threads/bizarrerie-dtpicker.204788/

Je joins ce fichier pour info... c'est juste une idée de départ...

Cordialement