Bonjour,
Tout nouveau sur l’utilisation de macro (frais de 2 jours) je rencontre un problème.
En gros j’ai deux colonnes, une représentant les jours du mois durant les 12 mois, et l’autre représentant le numéro du mois auquel correspond le jour de la colonne d’à côté.
Je souhaiterais matérialiser par un 0 les jours de vacances dans une colonne à coté
J’ai fais un userform et dessus il y a 4 combobox, les 2 première représente le jour et le mois du début des vacances et les deux autres représente la fin.
L’idée de mon code est la suivante, je fais une boucle de 1 a 8760 (=nombre d’heure dans une année) et je pose un test avec une double condition. Des que la ligne de la colonne B = la valeur de ma combobox1 et que la ligne de la colonne C = la valeur de ma combobox2 alors je met un 0 sur la ligne correspondante dans une colonne C. Et ensuite je fais un tant que que la ligne de la colonne B <> la valeur de ma combobox3 et que la ligne de la colonne C <> la valeur de ma combobox4 je met des 0 sur les lignes correspondantes dans la colonne C.
Cependant j’arrive pas à imposer deux conditions.
Voici mon code :
Sub algo_vacances()
Dim Ligne As Integer
Dim i As Integer
With Feuil1
For Ligne = 1 To 8760
If Cells(Ligne, 5)=userform1.combobox1.Value and cells(ligne,6) = userform1.combobox2.value Then
Do While Not Cells(Ligne, 5) = userform1.combobox3.Value and Cells(Ligne, 6) = userform1.combobox4.Value
Cells(Ligne, 2).Value = 0
Ligne = Ligne + 1
Loop
End If
Next Ligne
End With
MsgBox ("finitoo")
End Sub
Tout nouveau sur l’utilisation de macro (frais de 2 jours) je rencontre un problème.
En gros j’ai deux colonnes, une représentant les jours du mois durant les 12 mois, et l’autre représentant le numéro du mois auquel correspond le jour de la colonne d’à côté.
Je souhaiterais matérialiser par un 0 les jours de vacances dans une colonne à coté
J’ai fais un userform et dessus il y a 4 combobox, les 2 première représente le jour et le mois du début des vacances et les deux autres représente la fin.
L’idée de mon code est la suivante, je fais une boucle de 1 a 8760 (=nombre d’heure dans une année) et je pose un test avec une double condition. Des que la ligne de la colonne B = la valeur de ma combobox1 et que la ligne de la colonne C = la valeur de ma combobox2 alors je met un 0 sur la ligne correspondante dans une colonne C. Et ensuite je fais un tant que que la ligne de la colonne B <> la valeur de ma combobox3 et que la ligne de la colonne C <> la valeur de ma combobox4 je met des 0 sur les lignes correspondantes dans la colonne C.
Cependant j’arrive pas à imposer deux conditions.
Voici mon code :
Sub algo_vacances()
Dim Ligne As Integer
Dim i As Integer
With Feuil1
For Ligne = 1 To 8760
If Cells(Ligne, 5)=userform1.combobox1.Value and cells(ligne,6) = userform1.combobox2.value Then
Do While Not Cells(Ligne, 5) = userform1.combobox3.Value and Cells(Ligne, 6) = userform1.combobox4.Value
Cells(Ligne, 2).Value = 0
Ligne = Ligne + 1
Loop
End If
Next Ligne
End With
MsgBox ("finitoo")
End Sub