VBA + Formule simultanée

SergiO

XLDnaute Accro

• 30 Juillet 2008

• #2

Re : VBA + Formule simultanée

Bonjour Julien,

Essaie ce code:

Code:

Sub Notes()
Derlig = Range("A65536").End(xlUp).Row
For L = 2 To Derlig
Note = Range("H1:H65536").Find(Cells(L, 1).Value).Offset(0, 1)
Cells(L, 2) = Note
Next L
End Sub

@+

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 30 Juillet 2008

• #3

Re : VBA + Formule simultanée

Merci beaucoup,

Mais je souhaiterais la solution avec la boucle while wend si ca ne te derange pas...

Merci,

Julien974

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 30 Juillet 2008

• #4

Re : VBA + Formule simultanée

Re,

Ca me dérange 😀 mais allons-y!

Code:

Sub Notes()
L = 2
While Cells(L, 1) <> ""
Note = Range("H1:H65536").Find(Cells(L, 1).Value).Offset(0, 1)
Cells(L, 2) = Note
L = L + 1
Wend
End Sub

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 30 Juillet 2008

• #5

Re : VBA + Formule simultanée

Le truc c'est que je voudrais vraiment que tu suives la procédure que j'ai mis. Car je compte par la suite l'utiliser pour un fichier plus complexe...

Merci d'avance,

Julien974

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 30 Juillet 2008

• #6

Re : VBA + Formule simultanée

Re,

3ème essai:

Code:

Sub Notes()
L = 2
While Cells(L, 1) <> ""
Cells(L, 1).Copy Destination:=Range("E13")
Cells(L, 2) = Range("F13").Value
L = L + 1
Wend
End Sub

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 30 Juillet 2008

• #7

Re : VBA + Formule simultanée

Merci tt fonctionne!

Une derniere question:

Si la cellule E13 se situe dans une autre feuille ("Feuille2"),

que dois je mettre après

Cells(L, 1).Copy Destination:=

Merci,

Julien974

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 30 Juillet 2008

• #8

Re : VBA + Formule simultanée

re,

tu mets ceci:

Code:

Cells(L, 1).Copy Destination:=Sheets("Feuille2").Range("E13")

@+

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 30 Juillet 2008

• #9

Re : VBA + Formule simultanée

Derniere question:

comment peut on calculer la somme des nb d'une colonne sachant que la premiere comporte le nom de la colonne?

Muchas gracias amigo,

Juli3n974

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Juillet 2008

• #10

Re : VBA + Formule simultanée

Bonjour Julien, Sergio

regarde le code ci dessous, somme la colonne A à partir de la cellule A2 et renvoie le résultat dans la variable x :

Code:

Dim x As Double
x = WorksheetFunction.Sum(Range("A2:A" & Range("A65536").End(xlUp).Row))

bon après midi
@+

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 30 Juillet 2008

• #11

Re : VBA + Formule simultanée

Hello,

Je suis dsl ms ta fonction ne fonctionne pas...

Quelqu'un aurait il une autre solution?

@+,

Juli3n974

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 30 Juillet 2008

• #12

Re : VBA + Formule simultanée

Re Julien, salut Pierrot

Le code de Pierrot fonctionne parfaitement
J'ai rajouté une ligne pour affiher le résultat:

Code:

Dim x As Double
x = WorksheetFunction.Sum(Range("A2:A" & Range("A65536").End(xlUp).Row))
MsgBox "La somme des valeurs de la colonne A est " & x

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 31 Juillet 2008

• #13

Re : VBA + Formule simultanée

Merci les amis, cela fonctionne parfaitement.

Par contre, lorsque je veux faire la même chose sur une autre colonne de la même feuille, ca plante...

Je pense qu'il faut changer le nom de la fonction, pouvez vous m'aider?

merci d'avance,

Julien974

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Juillet 2008

• #14

Re : VBA + Formule simultanée

Bonjour Julien, Sergio

Tu as bien remplacé les 3 A dans la ligne de code par la lettrede la nouvelle colonne concernée :

Code:

x = WorksheetFunction.Sum(Range("A2:A" & Range("A65536").End(xlUp).Row))

bonne journée
@+

 

Vote positif 0 Vote négatif

julien974

XLDnaute Occasionnel

• 31 Juillet 2008

• #15

Re : VBA + Formule simultanée

Hello,

Voici le code que j'ai mis pour calculer la somme pr deux colonne, ms ca ne fonctionne pas...

Code:

    Dim x As Double
    x = WorksheetFunction.Sum(Range("D2:D" & Range("D65536").End(xlUp).Row))
    Range("D65000").End(xlUp).Offset(1, 0).Value = x
    x = WorksheetFunction.Sum(Range("E2:E" & Range("E65536").End(xlUp).Row))
    Range("E65000").End(xlUp).Offset(1, 0).Value = x

Bien a vous,

Julien974

 

Vote positif 0 Vote négatif