E
Evelynetfrancois
Guest
Bonjour a toutes et tous !
je rencontre un problème suite au changement du système d’exploitation
De Windows 98 à windows 2000 pro par mon entreprise
Cette macro ci dessous qui fonctionnée parfaitement , beuge actuellement sur « Chr » en me notent erreur de compilation ,Projet ou bibliothèque introuvable
Pouvez vous m’aider ou auriez vous La solution à ce désagrément
Merci d’avance
Bonne journée
Evelynetfrancois
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Longueur As Byte
Dim i As Byte
Dim Hit As Byte
Fiche = InputBox("Entrer le NOM de l'agent recherché ," & Chr(13) & "ou" & Chr(13) & _
"ses 3 premières lettres ....", "SÉLECTION D'UN AGENT.", _
" Pour éviter les doublons saisir au moins 3 caractères !")
If Fiche = "" Then Exit Sub
Longueur = Len(Fiche)
For i = 1 To Sheets.Count
If Not Sheets(i).Visible = False Then
If UCase(Left(Sheets(i).Name, Longueur)) = UCase(Fiche) Then
Hit = Hit + 1
ReDim Preserve LesFeuilles(0 To Hit - 1)
LesFeuilles(Hit - 1) = Sheets(i).Name
End If
End If
Next i
Select Case Hit
Case 0: MsgBox "Pas de feuille commençant par: " & Fiche, vbCritical, " Introuvable !"
Case 1: Sheets(LesFeuilles(0)).Activate
Case Is > 1
Doublenom.Show
End Select
End Sub
je rencontre un problème suite au changement du système d’exploitation
De Windows 98 à windows 2000 pro par mon entreprise
Cette macro ci dessous qui fonctionnée parfaitement , beuge actuellement sur « Chr » en me notent erreur de compilation ,Projet ou bibliothèque introuvable
Pouvez vous m’aider ou auriez vous La solution à ce désagrément
Merci d’avance
Bonne journée
Evelynetfrancois
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Longueur As Byte
Dim i As Byte
Dim Hit As Byte
Fiche = InputBox("Entrer le NOM de l'agent recherché ," & Chr(13) & "ou" & Chr(13) & _
"ses 3 premières lettres ....", "SÉLECTION D'UN AGENT.", _
" Pour éviter les doublons saisir au moins 3 caractères !")
If Fiche = "" Then Exit Sub
Longueur = Len(Fiche)
For i = 1 To Sheets.Count
If Not Sheets(i).Visible = False Then
If UCase(Left(Sheets(i).Name, Longueur)) = UCase(Fiche) Then
Hit = Hit + 1
ReDim Preserve LesFeuilles(0 To Hit - 1)
LesFeuilles(Hit - 1) = Sheets(i).Name
End If
End If
Next i
Select Case Hit
Case 0: MsgBox "Pas de feuille commençant par: " & Fiche, vbCritical, " Introuvable !"
Case 1: Sheets(LesFeuilles(0)).Activate
Case Is > 1
Doublenom.Show
End Select
End Sub