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
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
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
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" <m2m190@msn.com> a écrit dans le message de news:
uVqgzBcZIHA.1208@TK2MSFTNGP05.phx.gbl...
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
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
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
Bonjour et Merci
C'est magique quand çà fonctionne
Merci
M
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uzsf6qdZIHA.3880@TK2MSFTNGP05.phx.gbl...
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" <m2m190@msn.com> a écrit dans le message de news:
uVqgzBcZIHA.1208@TK2MSFTNGP05.phx.gbl...
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
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