Je tiens à dire que je n'ai jamais prit de cours pour les VBA, j'ai apprit par moi-même donc désolée si mes codes vous sembles débutant.
Tout fonctionnait a merveille et ce matin, POUFF!
Je suis dans un Userform
Je travaille en réseau
J'ai le message d'Erreur "Erreur de compilation" - "Membre de methode ou de donnée introuvable"
vis-à-vis la ligne 35
Il met l'erreur partout où j'ai mit Selection mais sur le membre de la méthode et non sur le mot Séecltion.
Si je remplace tous mes "Selection" par "ActiveCell", j'ai une nouvelle erreur qui dit qu'il est impossible de modifier une cellule fusionnée, même si c'est juste pour effacer le contenu!
|fancy]
Mes cheveux tombent en ce moment! Qu'est-ce qui se passe tout d'un coup?
Je voudrais vous mettre mon fichier mais je ne sais pas comment...
Voici mon code complet
1 Private Sub CommandButton1_Click()
2
3 'Transférer les activités cochés (max 5) dans les cellules appropriées de la feuille Rencontre x
4
5 Dim Ctrl As Control
6 Dim i As Long
7 Dim k As Long
8 Dim j As Integer
9 Dim motdp As String
10
11 Application.ScreenUpdating = False
12 Application.DisplayAlerts = False
13
14 motdp = Sheets("list").Range("a1").Value
15
16 ThisWorkbook.Unprotect Password:=motdp
17 'ActiveSheet.Unprotect Password:=motdp
18 On Error GoTo errorhandler
19
20 j = 1
21
22 For Each Ctrl In Me.Controls
23
24 If TypeName(Ctrl) = "CheckBox" Then
25 If Ctrl.Value = True Then
26 If j = 6 Then
27 Exit For
28 ElseIf ActiveSheet.Name = "Conclusion" Then
29 i = 16
30 Else: i = 20
31 End If
32 'msgbox Ctrl.Name
33 If Ctrl.Caption = "Autre - Précisez:" Then
34 ActiveSheet.Range("B" & i).Offset(j, 0).Select
35***ERREUR ICI Selection.ClearContents
'Il met l'erreur partout où j'ai mit Selection. Si je met ActiveCell. J'ai une nouvelle erreur qui dit qu'il est impossible de modifier une cellule fusionnée, même si c'est juste pour effacer le contenu!
