Recuperer plage de valeur pour userform

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recuperer plage de valeur pour userform

uriel2k

Bonjour,

J'ai réalisé une form qui permet le calcul de sous totaux a partir d'un classeur excel.
En colonne A j'ai les dates de 1 à 31
En colonne B des montants (en especes)
En colonne C des montant (en cheques)

Sur cette form je demande a l'utilisateur de choisir la date du début (textbox1) et la date de fin (textbox2) (par exemple du 5 au 10)
puis il a le choix il coche soient "espece" soit "cheque". (exemple: espece)

En cliquant sur le boutons "calculer" la somme des montants (en especes) de la date de début (le 5) à la date de fin (le 10) apparait dan sune textbox3.

Mon souci est de récupérer la plage de valeur de la date de début à la date de fin en fonction des colonnes choisi:

J'ai écrit cela:

Code :

Private Sub cmdcalculer_Click()
Dim Plage As Range 'plage de valeur sur laquelle sera effectuer la somme'
Dim dd As Integer 'date de début entré par l'utilisateur'
Dim df As Integer 'date de fin entré par l'utilisateur'
Dim col As String 'col correspondant aux especes ou aux cheques ou autres'
dd = TextBox1.Value
df = TextBox2.Value
If optespece.Value = True Then
col = "B"
Set Plage = Sheets("Feuil1" ).Range("col & dd,col & df" )
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
If optcheque.Value = True Then
col = "C"
Set Plage = Sheets("Feuil1" ).Range("C4:C5" )
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
If optautre.Value = True Then
col = "D"
Set Plage = Sheets("Feuil1" ).Range("D4:D5" )
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
End Sub

Je vous remercie par avance pour vos réponses.

Uriel,

Publicité

uriel2k

Les lignes 14,20 et 26 me pose problème, que dois je passer en argument du "range" ?

ingenieurcesi

bonsoir,

la date 1 est a quelle ligne?

EDIT: tu n'as pas d'intitulé sur la ligne 1 ?

Message édité par ingenieurcesi le 27-05-2007 à 23:32:01

ingenieurcesi

pour la ligne 14 il faut enlever les ""
Set Plage = Sheets("Feuil1" ).Range(col & dd,col & df)

ingenieurcesi

certaine fois à la place des & il faut utiliser des +

jpcheck

Pioupiou

comme tu fixes col à B autant faire directement:
Set Plage = Sheets("Feuil1" ).Range("B" & dd &":B"& df)

aprilthe5ith

with worksheets(1)
If optespece.Value = True Then
textresultat.Value = Application.Sum()
End If
If optcheque.Value = True Then
col = "C"
Set Plage = Sheets("Feuil1" ).Range("C4:C5" )
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
If optautre.Value = True Then
col = "D"
Set Plage = Sheets("Feuil1" ).Range("D4:5" )
textresultat.Value = Application.WorksheetFunction.Sum(Plage)

End If

aprilthe5ith

Pardon pour le précédent envoi... le couyp est parti tout seul...
Donc, est ce que ce code fonctionne (?) :

with worksheets(1)
If optespece.Value = True Then
textresultat.Value = Application.Sum(range(.cells(dd,2),.cells(df,2)))
elseIf optcheque.Value = True Then
textresultat.Value =Application.Sum(range(.cells(dd,3),.cells(df,3)))
elseIf optautre.Value = True Then
textresultat.Value = Application.Sum(range(.cells(dd,4),.cells(df,4)))
End If
end with

uriel2k

Merci a toutes et tous pour votre participation, voici le code que j'ai utilisé et qui fonctionne, a force d'acharnement j'y suis arrivé. Les différentes solutions que vous me proposer sont plus "élégante" je tacherai de m'en inspirer a l'avenir.

Merci

Code :

Private Sub cmdcalculer_Click()
Dim Plage As Range
Dim dd As Integer
Dim df As Integer
Dim col As String
Dim a As Boolean
If TextBox1.Value <> "" Or TextBox2.Value <> "" Then
dd = TextBox1.Value
df = TextBox2.Value
dd = dd + 4
df = df + 4
Else
MsgBox "Remplir les champs"
End If
If dd = df Then
MsgBox "choisir deux dates différente"
End If
If df < dd Then
MsgBox "La date de début doit être inférieur à la date de fin"
End If
If optespece.Value = False And optcheque.Value = False And optautre.Value = False Then
MsgBox "choisir un type de paiement"
End If
If optespece.Value = True Or optcheque.Value = True Or optautre.Value = True Then
If optespece.Value = True Then
col = "G"
Set Plage = Sheets("mai" ).Range(col & dd, col & df)
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
If optcheque.Value = True Then
col = "F"
Set Plage = Sheets("mai" ).Range(col & dd, col & df)
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
If optautre.Value = True Then
col = "D"
Set Plage = Sheets("mai" ).Range(col & dd, col & df)
textresultat.Value = Application.WorksheetFunction.Sum(Plage)
End If
End If
End Sub

uriel2k

Ce topic peut être fermé. (désolé je ne sais comment procéder pour le cloturer)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Recuperer plage de valeur pour userform

Sujets relatifs
Valeur presente ou non	[VBA / access] Effacer valeur zone de txt en fct valeur zone de liste
Executer une commande et recuperer la sortie standard	[ DirectX ] Connaître la valeur des commandes exécutées
mozilla , recupérer le cache	VB2005 : Conversion d'une valeur string en valeur numérique
Récupérer les classes d'un package nommé	mettre une valeur du presse papier dans une variable
[VBA] Valeur maximale d'une sélection	[Access-formulaire] Valeur par défaut issue d'une requête
Plus de sujets relatifs à : Recuperer plage de valeur pour userform

Page générée en 0.093 secondes