Voilà, je ne vois pas comment m'y prendre pour ce truc.
Je voudrais faire un prog capable de de réalisé ceci:
Je souhaite en cellule Ax (x variable en fonction du nombre de ligne la précédent et d'un autre petit programme) faire la somme de y cellules positionnées avant.
Ces y cellules ne se touche pas, elle sont sur la même colonne mais séparé de 13 lignes à chaque fois.
Oui, Union est une bonne solution.
Exemple de concaténation de deux ranges :
Dim oRange As Range
Set oRange = Range("B2:B5")
Set oRange = Union(oRange, Range("D2:D4"))
Range("A2").Formula = "= SUM(" & oRange.Address & ")"
mais Union peut être répété avec encore bien d'autres ranges
Ton problème est que l'enregistreur de macro fournit des références R1C1 et qu'il est plus facile de travailler avec des appellations comme "B2". Il va s'en dire que dans ce cas, la fonction n'est pas exactement la même (.Formula et pas .FormulaR1C1)
Voir aussi dans l'aide la propriété .Offset d'un Range qui permet de désigner une cellule relativement à une autre.
- Tu ne développes donc pas sous VB.Net, mais sous VBA (le VBA de Excel). Prends dorénavant le plus grand soin, s'il te plait, au choix de la section dans laquelle du "postes".
- A défaut de précisions plus claires et exactes sur les tenants de ton problème, je ne peux que t'inviter à utiliser dans une formule la fonction Excel SOMME
Si pas ce que tu attendais ===>> sois beaucoup plus précises sur les tenants et aboutissants.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Enregistre une macro pendant que tu fais la manip à la main :
- Tu cliques dans une cellule vide
- tu tapes =SOMME
- tu vas cliquer sur la première cellule
- En maintenant la touche Ctrl appuyée, tu vas cliquer sur les X autres cellules
- tu tapes la parenthèses de fermeture de SOMME si besoin et tu valides.
L'enregistreur de macro te fournira le code nécessaire (dans Module).
A toi ensuite de regarder la syntaxe particulière de la sélection de zone (Range) non contigües et de l'adapter à tes besoins.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Je l'ai déjà fait et c'est comme ça que j'ai eu les formules déjà cité.
Mais le truc important pour moi c'est le nombre de cellule à ajouter. Ce nombre y n'est pas toujours le même et le programme de création de formule doit en tenir compte.
Je voudrais donc être aidé pour créer ce programme vba.
Bon j'ai réussi à faire le programme mais celui-ci s'arrete à la 32eme cellule ajouté par union alors que je souhaite min 125. Y a til une limite de cellule qu'une variable range puisse stocker?
Seule l'aide pourra te répondre
Tu dois pouvoir crées une pyramide de Union :
Un Union avec les 20 premières cellules
Un autre avec les 20 suivantes
...
et un Union final avec les x Unions précédents, ça doit pouvoir marcher.
Au pire, tu parcelles tes données en paquets de 20 et tu exécutes ta fonction X fois.
Je ne connais pas de limite en ce qui concerne le nombre de "areas" d'une plage constituée à l'aide de Union.
Je n'en ai pas trouvé, pour être précis, alors que je m'intéressais de très près à la chose dans le cadre d'un source que j'ai très récemment déposé.
La seule véritable limite que j'ai trouvée dans ce domaine (et que j'ai d'ailleurs "contrecarré" en utilisant la méthode Union traditionnelle) concernait le nombre d' "areas" d'une plage obtenue par recensement des "specialcells" de Excel.
Le problème me parait donc venu d'ailleurs. Mais d'où ? le seul code montré n'est pas suffisant pour le déterminer. Il nous faudrait voir dans son ensemble la totalité de la partie du code concerné, tel qu'il a été écrit et tel qu'il aboutit à cette constatation.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Il n'est par contre pas impossible (mais ce serait là un aspect différent) que l'utilisation de SUM rencontre, elle, quelques difficultés en cas de "zones" (areas) d'un nombre trop élevé.
Mais là encore, seul l'exposé complet du code nous permettrait d'en faire un constat et, le cas échant, de trouver la parade la meilleure (la moins pénalisante)
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Perso, je viens de tester 42 Union à la suite sans aucun problème.
Salut, Jack
C'est certain ! je suis arrivé à plus de 65000 sans aucun problème.
Ce n'est donc pas à la constitution de la plage, qu'il y a problème, mais peut-être à son utilisation avec SUM
Son code est devenu essentiel, en effet
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
expression Variable représentant un objet WorksheetFunction.
Paramètres
Nom Obligatoire/Facultatif Type de données Description
Arg1 - Arg30 Obligatoire Variante Number1, number2, ... - 1 à 30 arguments pour lesquels vous voulez connaître la valeur totale ou le total.
Valeur renvoyée
Double
Remarques
Nombres, valeurs logiques et représentations textuelles des nombres que vous saisissez directement dans la liste des arguments pris en compte. Reportez-vous au premier et au deuxième exemples ci-dessous.
Si un argument est un tableau de référence, seuls les nombres dans ce tableau ou cette référence sont pris en compte. Les cellules vides, les valeurs logiques ou le texte dans le tableau ou la référence sont ignorés. Reportez-vous au troisième exemple ci-dessous.
Les arguments qui comportent des valeurs d'erreur ou du texte qui ne peuvent pas être convertis en nombres génèrent des erreurs.
Son code m'intéresse vraiment. Et je compte bien m'obstiner à trouver la meilleure parade.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Son code nous permettra par ailleurs de vérifier (sait-on jamais) qu'il ne génère pas de références circulaires.
Vraiment ! Assurément : son code (voire son fichier, carrément) est devenu indispensable à ce niveau.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Et une autre chose m'(inquiète également.
Bien que la "limite de 32" "dénoncée" ne soit pas concernée par cette "chose" :
Citation :
En faite, le nombre de cellule a additioner et fonction de y et y peut être 0 comme 200,3000..
Il se trouve que la fonction SUM utilisée dans une formule (essai manuel le prouvant) ne peut additionner plus de 255 nombres distinctement définis où par référence à des cellules distinctement désignées.
Voilà qui fait beaucoup de points d'interrogation, me paraît-il.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
J"'ai déjà une parade efficace et très rapide (dans tous les cas de figure) pour faire cette somme (sans la faire en boucle) en utilisant la fonction SUM, mais pas dans une formule.
Nous n'attendons plus que le demandeur et ... son code.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Dim r1 As Range
Dim l1 As Long
Dim oLigne As Long
Dim c1 As Integer
Dim multiplerange As Range
Dim n As Integer
Dim nligne As Long
Dim compteur_boucle_colonne As Integer
Dim oLigneCalcul As Long
Dim compteur_calcul_cellule As Integer
Dim colonne As String
Dim compteur_position_sur_ligne As Integer
Sub boucle_remplissage_ligne_tableau()
compteur_position_sur_ligne = 1
'On Error GoTo 1
nligne = InputBox("Combien de ligne du tableau à comptabiliser ?")
'If nligne = 0 Then GoTo 1
'On Error GoTo 1
n = InputBox("Combien de cellules à ajouter?")
'If n = 0 Then GoTo 1
Do
If compteur_position_sur_ligne 1 Then colonne "d"
If compteur_position_sur_ligne 2 Then colonne "e"
If compteur_position_sur_ligne 3 Then colonne "f"
If compteur_position_sur_ligne 4 Then colonne "g"
If compteur_position_sur_ligne 5 Then colonne "h"
If compteur_position_sur_ligne 6 Then colonne "i"
If compteur_position_sur_ligne 7 Then colonne "j"
If compteur_position_sur_ligne 8 Then colonne "k"
'If compteur_position_sur_ligne 9 Then colonne "I"
'If compteur_position_sur_ligne 10 Then colonne "J"
1 End Sub
Sub boucle_remplissage_colonne_tableau()
compteur_boucle_colonne = 0
oLigne = 2290 'Attention ici, 41 est la ligne de départ du décompte!!
l1 = oLigne
Do
compteur_boucle_colonne = compteur_boucle_colonne + 1
Call Creation_Formule
l1 = l1 + 1
Loop Until compteur_boucle_colonne = nligne
End Sub
Sub Creation_Formule()
'creation de la formule additionnant x cellules de la même colonne dans une cellule précise. Attention, formule bloqué
'sur l'originale en cas de copie sur autre cellule.
1) apprends à présenter ici un code mis en forme (balises code) et indenté ('sinon : je ne le regarde en principe même pas).
2) nettoie ton code de tout dce qui ne doit pas être exécute (inutile de nous montrer ce que tu as mis en commentaires, donc )
3) essaye (au moins) d'en "extirper" la logique
Reviens ensuite.
Merci.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
