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.