bonjour j'ai un problème avec mon code et je ne trouve pas pourquoi ...
il n'est pas encroe totalement fini mais je voulais déjà regler les petites erreur si quelqu'un peut m'aider ..
Cordialement
Sub autreservice()
'
' autreservice Macro
'
Dim LaDate As Date
Dim k As Integer
Dim v As String
Dim x As Integer
Dim y As String ' y ordonnée
Dim z As Integer ' z abscisses
Dim Fichier As Variant
Dim resultat As String
LaDate = Date 'date
Fichier = WeekdayName(Weekday(LaDate, 2), , 2)
x = 4
Sheets("QUESTIONS").Select
resultat = Application.VLookup(Range("$d$3"), Range("$e$3:$g$8"), 3, False)
If MsgBox("confirmer votre réponse ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
Sheets("QUESTIONS").Select
End If
If Fichier = "lundi" Then
y = "h"
End If
If Fichier = "mardi" Then
y = "j"
End If
If Fichier = "mercredi" Then
y = "L"
End If
If Fichier = "jeudi" Then
y = "n"
End If
If Fichier = "vendredi" Then
y = "p"
End If
For k = 3 To 8
[u]If Cells("h", k) = "ok" Then
Else
Next k[/u] 'next sans for
End If
If Range("c3") = "RH/HSE" Then
z = 5
Sheets("RH HSE").Select
End If
If Range("c3") = "FINANCE" Then
z = 8
Sheets("FINANCE").Select
End If
If Range("c3") = "LOGISTIQUE" Then
z = 11
Sheets("LOGISTIQUE").Select
End If
If Range("c3") = "PRODUCTION" Then
z = 14
Sheets("PRODUCTION").Select
End If
If Range("c3") = "METHODES" Then
z = 17
Sheets("METHODES").Select
End If
If Range("c3") = "MAINTENANCE" Then
z = 20
Sheets("MAINTENANCE").Select
End If
If Range("c3") = "QUALITE" Then
z = 23
Sheets("QUALITE").Select
End If
'procédure de copy de la question
For v = b To g
If resultat = Range("B" & v & ":B" & v + 1) Then
Range("B" & v & ":B" & v + 1).Select
Selection.Copy
Sheets("Feuil1").Select
Range(y, z - 1).Select
ActiveSheet.Paste
Range("a1").Select
Else
Next v
End If
End Sub