Problème dans les conditions pour une textbox avec excel et VBA 6
Résolu
fireup11
Messages postés
2
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
3 février 2009
-
3 févr. 2009 à 17:55
fireup11 Messages postés 2 Date d'inscription mardi 3 février 2009 Statut Membre Dernière intervention 3 février 2009 - 3 févr. 2009 à 22:19
fireup11 Messages postés 2 Date d'inscription mardi 3 février 2009 Statut Membre Dernière intervention 3 février 2009 - 3 févr. 2009 à 22:19
A voir également:
- Problème dans les conditions pour une textbox avec excel et VBA 6
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Excel vba modulo ✓ - Forum Visual Basic 6
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Le reste d'une division - Forum Visual Basic 6
3 réponses
jmf0
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
8
3 févr. 2009 à 20:28
3 févr. 2009 à 20:28
Bonjour,
ne te semble-til pas que :
tant tes cellules que tes heures avançant de une unité, une bouble for ...to...Next ferait parfaitement l'affaire, tant pour tes ranges que pour tes heures (en utilisant dateadd pour incrémenter tes heures) ... ?
A toi de t'y mettre (c'est trop simple !)
ne te semble-til pas que :
tant tes cellules que tes heures avançant de une unité, une bouble for ...to...Next ferait parfaitement l'affaire, tant pour tes ranges que pour tes heures (en utilisant dateadd pour incrémenter tes heures) ... ?
A toi de t'y mettre (c'est trop simple !)
Mikaels35
Messages postés
146
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
17 novembre 2009
2
3 févr. 2009 à 20:30
3 févr. 2009 à 20:30
Tu peux partir sur cette base
Dim i as Integer, a As Integer
If TextBox3.Value = "2" Then
For i = 4 To 51
a = IIf(i < 28, 3, 27)
Sheets("paramètre").Range("B" & CStr(i)).Value = Format(CStr(i - a), "00") & "h00"
Next i
End If
Ensuite tu adaptes à tes besoins pour les autres valeurs de la TextBox.
@+
Dim i as Integer, a As Integer
If TextBox3.Value = "2" Then
For i = 4 To 51
a = IIf(i < 28, 3, 27)
Sheets("paramètre").Range("B" & CStr(i)).Value = Format(CStr(i - a), "00") & "h00"
Next i
End If
Ensuite tu adaptes à tes besoins pour les autres valeurs de la TextBox.
@+
fireup11
Messages postés
2
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
3 février 2009
3 févr. 2009 à 22:19
3 févr. 2009 à 22:19
Tres bien merci beaucoup je vais m'y mettre avec vos réponses!!