Suppression de la demande

[brunosc]

Suppression de la demande.

 

[Lone-wolf]

Bonjour brunosc

il me faudrait un formulaire qui me met au bon endroit

Et ce serait où le bon endroit??? 🙄😀

For j = 1 To 3
  col = Choose(j, 3, 5, 4)
  f.Cells(lgn, col) = Val(Replace(Controls("TextBox" & j + 2), ",", "."))
  Next j

  f.Cells(lgn, 9) = TextBox2
  If TextBox6 <> "" Then
  f.Cells(lgn, 8) = Val(TextBox6)
  End If

Et avec Choose, il est évident que tu n'ira jamais au bon endroit puisque tu la laisse choisir où mettre les données. 🙄 De plus tu met TextBox6(qui n'existe pas). Tu as 4 TextBox nommées 1 2 3 et 5 au lieu de 1 2 3 et 4. Tu devrait pourtant savoir que cette fonction agit comme Randomize et quelle va placer au hasard les données inscrites dans les textbox. Exemple:

1er tirage = heure deb en colonne C : 2ème tirage en colonne A: 3ème tirage en colonne D et ainsi de suite.

 

[Lone-wolf]

Euuuuhh!! Et pourquoi l'as-tu laissé??? 🙄

On est pas devins nous, quand tu dit: pour résumer il me faudrait un formulaire... quand tu l'as déjà. Dit plutôt: il me faudrait le code pour....

Désolé , je travail avec Excel 2010, et comme il y a eu des problèmes avec les codes, je ne peut rien faire.

Pour détecter les dimanches, essaie comme ceci :

For each cel in Plage
If Weekday(cel.value) = 1 then TextBox1 = cel.value
Next cel

Pour les jours fériés il faut une fonction pour les détectés.