Smartsomme

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5283841
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"
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



Michel Ménard
Le #5148471
Bonjour et Merci

C'est magique quand çà fonctionne

Merci
M

"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"
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







Publicité
Poster une réponse
Anonyme