EXCEL MACRO CALCUL
Fermé
ephemere18
Messages postés
4
Date d'inscription
mercredi 28 mai 2008
Statut
Membre
Dernière intervention
6 juin 2008
-
28 mai 2008 à 15:58
croy Messages postés 453 Date d'inscription samedi 19 janvier 2008 Statut Membre Dernière intervention 23 octobre 2012 - 29 mai 2008 à 21:13
croy Messages postés 453 Date d'inscription samedi 19 janvier 2008 Statut Membre Dernière intervention 23 octobre 2012 - 29 mai 2008 à 21:13
A voir également:
- EXCEL MACRO CALCUL
- Liste déroulante excel - Guide
- Calcul moyenne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
5 réponses
croy
Messages postés
453
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
23 octobre 2012
114
28 mai 2008 à 22:13
28 mai 2008 à 22:13
Voici une ébauche de macro de calcul :
Cette ébauche :
- n'est pas liée à ta userform : je te conseille de bien mettre au point ta macro de calcul en mettant dedans en dur les paramètres (ici "IdF") qui seront ensuite extraits de la UserForm
- est certainement incomplète (par exemple le cumul par département) mais je ne vais pas tout faire pour toi
- est formatté et commentée ce que je te recommande car ce n'est pas du temps perdu
sub temp set laS = sheets("base") numLgn = 3 totalCol4 = 0 do ' boucle sur les lignes de données laRégion = laS.cells(numLgn,1) ' extraction de la région if( laRégion = '' ) then exit do ' si elle est vide ==> fin des données atteinte ' if( laRégion = 'IdF' ) then ' c'est la région que l'on veut traiter totalCol4 = totalCol4 + laS.cells(numLgn,4) ' cumul endif ' numLgn=numLgn+1 ' passage à la ligne de données suivante loop msgbox "total col 4 ' & totalCol4 ' affichage du résultat end sub
Cette ébauche :
- n'est pas liée à ta userform : je te conseille de bien mettre au point ta macro de calcul en mettant dedans en dur les paramètres (ici "IdF") qui seront ensuite extraits de la UserForm
- est certainement incomplète (par exemple le cumul par département) mais je ne vais pas tout faire pour toi
- est formatté et commentée ce que je te recommande car ce n'est pas du temps perdu
croy
Messages postés
453
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
23 octobre 2012
114
28 mai 2008 à 16:05
28 mai 2008 à 16:05
Essaye de commencer la macro, nous t'aideronsà partir de cela.
ephemere18
Messages postés
4
Date d'inscription
mercredi 28 mai 2008
Statut
Membre
Dernière intervention
6 juin 2008
28 mai 2008 à 16:11
28 mai 2008 à 16:11
Ma macro est commencée mais pas le code pour effectuer le calcul
Private Sub Select_region_Change()
End Sub
Private Sub UserForm_Initialize()
Dim j As Integer, i As Integer
Dim temp()
Select_region.Clear
derLi = Sheets("base").Range("F1000").End(xlUp).Row
i = 1
ReDim temp(1 To derLi)
With Sheets("base")
For j = 3 To derLi
If IsError(Application.Match(.Cells(j, 6), temp, 0)) Then
temp(i) = .Cells(j, 6)
i = i + 1
End If
Next j
End With
Select_region.List = temp
End Sub
Private Sub Select_region_Change()
End Sub
Private Sub UserForm_Initialize()
Dim j As Integer, i As Integer
Dim temp()
Select_region.Clear
derLi = Sheets("base").Range("F1000").End(xlUp).Row
i = 1
ReDim temp(1 To derLi)
With Sheets("base")
For j = 3 To derLi
If IsError(Application.Match(.Cells(j, 6), temp, 0)) Then
temp(i) = .Cells(j, 6)
i = i + 1
End If
Next j
End With
Select_region.List = temp
End Sub
ephemere18
Messages postés
4
Date d'inscription
mercredi 28 mai 2008
Statut
Membre
Dernière intervention
6 juin 2008
29 mai 2008 à 15:55
29 mai 2008 à 15:55
bonjou Croy,
merci pour le code mais j'ai essayer avec les modifs et ça ne fonctionne pas
merci pour le code mais j'ai essayer avec les modifs et ça ne fonctionne pas
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
croy
Messages postés
453
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
23 octobre 2012
114
29 mai 2008 à 21:13
29 mai 2008 à 21:13
ENvoie ton script et précise en quoi ca ne fonctionne pas.