Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Smartsomme

Smartsomme

2 réponses
Avatar
Michel Ménard
Bonjour

Je tente d'adapter une macro Louts en Excel .
La macro Smartsomme de lotus donnait un excellent résultat
Sur une feuille de plusieurs centaines de lignes , j'ai en colonne A le
numéro de pièces , en I le poids des accessoires évalué entre C et H , en I
le poids des accesoires et en J le poids total
La macro insère une ligne entre chaque # de pièces, calcule le poids des
accessoires en I et l'inscrit en J avec @somme. Si le poids des accessoires
change en cours de projet , la correction du poids est automatique

A I
J

# pièces N poidsaccessoire1
poidsaccessoire2
poidsaccessoire3
poids accessoire n
poidstotal accessoires



Alors par ou commencer ?
Je commence tranquillement à comprendre VBA !
M
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
Essaie :

Sub SmartSomme()
Dim c As Range, Adr1 As String, Adr2 As String
Dim Adr3 As String
For Each c In Range("I1", Range("I65536").End(xlUp))
If c.Row = 1 Then
Adr1 = c.Offset(, 1).Address
Adr2 = c.Address
ElseIf c.Offset(-1) = "" Then
Adr1 = c.Offset(, 1).Address
Adr2 = c.Address
End If
If c.Offset(1) = "" Then
Range(Adr1).Formula = "=sum(" & Adr2 & ":" & c.Address & ")"
End If
Next c
End Sub

Cordialement.
Daniel
"Michel Ménard" a écrit dans le message de news:

Bonjour

Je tente d'adapter une macro Louts en Excel .
La macro Smartsomme de lotus donnait un excellent résultat
Sur une feuille de plusieurs centaines de lignes , j'ai en colonne A le
numéro de pièces , en I le poids des accessoires évalué entre C et H , en
I le poids des accesoires et en J le poids total
La macro insère une ligne entre chaque # de pièces, calcule le poids des
accessoires en I et l'inscrit en J avec @somme. Si le poids des
accessoires change en cours de projet , la correction du poids est
automatique

A I J

# pièces N poidsaccessoire1
poidsaccessoire2
poidsaccessoire3
poids accessoire n poidstotal accessoires



Alors par ou commencer ?
Je commence tranquillement à comprendre VBA !
M



Avatar
Michel Ménard
Bonjour et Merci

C'est magique quand çà fonctionne

Merci
M

"Daniel.C" a écrit dans le message de news:

Bonsoir.
Essaie :

Sub SmartSomme()
Dim c As Range, Adr1 As String, Adr2 As String
Dim Adr3 As String
For Each c In Range("I1", Range("I65536").End(xlUp))
If c.Row = 1 Then
Adr1 = c.Offset(, 1).Address
Adr2 = c.Address
ElseIf c.Offset(-1) = "" Then
Adr1 = c.Offset(, 1).Address
Adr2 = c.Address
End If
If c.Offset(1) = "" Then
Range(Adr1).Formula = "=sum(" & Adr2 & ":" & c.Address & ")"
End If
Next c
End Sub

Cordialement.
Daniel
"Michel Ménard" a écrit dans le message de news:

Bonjour

Je tente d'adapter une macro Louts en Excel .
La macro Smartsomme de lotus donnait un excellent résultat
Sur une feuille de plusieurs centaines de lignes , j'ai en colonne A le
numéro de pièces , en I le poids des accessoires évalué entre C et H , en
I le poids des accesoires et en J le poids total
La macro insère une ligne entre chaque # de pièces, calcule le poids des
accessoires en I et l'inscrit en J avec @somme. Si le poids des
accessoires change en cours de projet , la correction du poids est
automatique

A I J

# pièces N poidsaccessoire1
poidsaccessoire2
poidsaccessoire3
poids accessoire n poidstotal accessoires



Alors par ou commencer ?
Je commence tranquillement à comprendre VBA !
M