VBA + Formule simultanée

[julien974]

Bonjour,

J'aimerais savoir si il est possible d'utiliser de VBA et des formules comme rechercheV simultanément.

Je joint le fichier avac la procédure à suivre,

Merci

Julien974

 

[SergiO]

Re : VBA + Formule simultanée

Bonjour Julien,

Essaie ce 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

@+

 

[julien974]

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

 

[SergiO]

Re : VBA + Formule simultanée

Re,

Ca me dérange 😀 mais allons-y!

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

 

[julien974]

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

 

[SergiO]

Re : VBA + Formule simultanée

Re,

3ème essai:

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

 

[julien974]

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

 

[SergiO]

Re : VBA + Formule simultanée

re,

tu mets ceci:

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

@+

 

[julien974]

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

 

[Pierrot93]

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 :

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

bon après midi
@+

 

[julien974]

Re : VBA + Formule simultanée

Hello,

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

Quelqu'un aurait il une autre solution?

@+,

Juli3n974

 

[SergiO]

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:

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

 

[julien974]

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

 

[Pierrot93]

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 :

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

bonne journée
@+

 

[julien974]

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

    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