voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le
message de news: 268860BC-EE0F-4B28-9F3F-DABBFCBA6CAC@microsoft.com...
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
dans les points ???? il faut que je trouve la formule à savoir faire la somme de la cellule D5 à la cellule ActiveCell.offset (-1,0)
HELP THANKS jm
MichDenis
Sub test() Dim DerLig As Long, Adr As String With Worksheets("Feuil1") ' Nom Feuille à adapter DerLig = .Range("A65536").End(xlUp).Row Adr = .Name & "!" & .Range("A5:A" & DerLig).Address .Range("A" & DerLig).Offset(3, 4) = Evaluate("Sum(" & Adr & ")") End With End Sub
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
dans les points ???? il faut que je trouve la formule à savoir faire la somme de la cellule D5 à la cellule ActiveCell.offset (-1,0)
HELP THANKS jm
Sub test()
Dim DerLig As Long, Adr As String
With Worksheets("Feuil1") ' Nom Feuille à adapter
DerLig = .Range("A65536").End(xlUp).Row
Adr = .Name & "!" & .Range("A5:A" & DerLig).Address
.Range("A" & DerLig).Offset(3, 4) = Evaluate("Sum(" & Adr & ")")
End With
End Sub
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le message de news:
268860BC-EE0F-4B28-9F3F-DABBFCBA6CAC@microsoft.com...
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
Sub test() Dim DerLig As Long, Adr As String With Worksheets("Feuil1") ' Nom Feuille à adapter DerLig = .Range("A65536").End(xlUp).Row Adr = .Name & "!" & .Range("A5:A" & DerLig).Address .Range("A" & DerLig).Offset(3, 4) = Evaluate("Sum(" & Adr & ")") End With End Sub
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le
message de news: 268860BC-EE0F-4B28-9F3F-DABBFCBA6CAC@microsoft.com...
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le
message de news: 268860BC-EE0F-4B28-9F3F-DABBFCBA6CAC@microsoft.com...
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si
simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le
message de news: 268860BC-EE0F-4B28-9F3F-DABBFCBA6CAC@microsoft.com...
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple
En fait si je connais la 1ere cellule de la somme je ne connais pas la
dernière voila comment je procéde.
Je cherche la dernière cellule de la colonne A renseignée et je me
positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate
Do
If ActiveCell = "" Then
Exit Do
Else
ActiveCell.offset(1,0).activate
End if
Loop
"somme.si et VBa" a écrit dans le message de news:
Bonjour,
voila je souhaite dans VBA incrire le code d'une somme ; mas pas si simple En fait si je connais la 1ere cellule de la somme je ne connais pas la dernière voila comment je procéde. Je cherche la dernière cellule de la colonne A renseignée et je me positionne sur la cellue ActiveCell.offset (2,4)
voila le code pouvez vous me donner la suite
Range ("A5").activate Do If ActiveCell = "" Then Exit Do Else ActiveCell.offset(1,0).activate End if Loop