[VBA-E] Macro utilisant la sélection active

Version imprimable

Bonjour à tous,

J'ai écrit une macro qui marche très bien mais je voudrais la rouler pour chaque cellule que je sélectionne ! Actuellement elle roule pour l'active cell seulement.

Je voudrais une boucle for qui utilise la sélection active pas une sélection déterminé. Exemple non fonctionnel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim plage As Range
      
Set plage = "SelectionActive"
For Each cell In plage
  J'insèrerais ma macro ici
Next cell

Marcro fonctionnelle 
Dim Valeur As Single
    ActiveCell.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.NumberFormat = "0.00"
    Valeur = ActiveCell.Value
    Valeur = (Valeur / 1073741824)
    ActiveCell.Value = Valeur
        With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(1, 0).Select ' Je n'aurais alors pas besoin de ce champ
End Sub

Merci d'avance

08/03/2007, 23h54
SilkyRoad

bonsoir

Si j'ai bien compris, tu pourrais utiliser l'évènement SelectionChange

http://silkyroad.developpez.com/VBA/...Feuille/#LII-I

michel
09/03/2007, 20h34
vectorw16

C'est une piste mais ce n'est pas exactement ce que je voulais

Je ne veux pas que la macro s'exécute automatiquement lorque je fait une sélection...

1- J'effectue une sélection donné exemple (A1 à A10)
2- Je veux que l'orque je roule ma macro elle effectue le travail pour les cellules A1 A2 A3 A4...A10 et qu'elle s'arrête

3- J'effectue alors une autre sélection exemple (A14 à A23)
4- Je veux alors qu'elle fasse encore la même chose mais pour cette nouvelle sélection A14 A15... A13 et qu'elle s'arrête

Je cherche un élément de excel qui peux me donné le range de la sélection actuelle

J'espère que c'est plus clair, merci pour le lien ca m'a quand même donné une idée
09/03/2007, 20h47
alsimbad
A mon avis essaie tout betement de remplacer active cell par selection
Code:

1 2 selection.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
c'est le code que donne un enregistrement de macro si tu la fais directement avec une selection multiple

J'ai trouver quelque chose qui semble fonctionner

1- J'ai créer une variable publique au niveau de la feuille
2- Ensuite dans "sélection change" je fais mettre le range dans ma var
3- Ensuite je met ma macro au niveau de la feuille aussi en utilisant ma var publique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Public RangePub As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set RangePub = Target
End Sub
 
Sub Remplacer()
Dim plage As Range
Dim Valeur As Single
 
Set plage = RangePub
For Each cell In plage
    ActiveCell.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.NumberFormat = "0.00"
    Valeur = ActiveCell.Value
    Valeur = (Valeur / 1073741824)
    ActiveCell.Value = Valeur
        With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(1, 0).Select
Next cell
End Sub

Ca marche jusqu'à présent

Pourrais-je rendre cette opération plus simple ?

09/03/2007, 21h35
vectorw16
Citation:
Envoyé par alsimbad

A mon avis essaie tout betement de remplacer active cell par selection

Code:

1 2 selection.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

c'est le code que donne un enregistrement de macro si tu la fais directement avec une selection multiple
Tu as bien raison effectivement exel génère ce code pour un rechercher remplacer avec une sélection ...

Mais comment pourrais-je diviser chacune de mes valeurs et changer le font dans la même opération ?

bon, je suis gentil
en fait je me suis rendu compte qu'effectivement ça ne sautait pas aux yeux le comment
voila un code qui marche, j'ai testé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub essai()
   u = Selection.Address
   For Each cel In Range(u)
   cel.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    cel.NumberFormat = "0.00"
    cel.Value = cel / 2
        With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Next cel
End Sub

voila voila

14/03/2007, 17h47
vectorw16

Effectivement c'est une équivalence optimisé ! Merci pour ton aide

Maintenant question suprème :-)

Pensez vous que je pourrais trouver un bout de code qui va chercher la valeur sur un site web avant d'effectuer cette macro ? (Une importation de donnée à partir d'un site web) :marteau:

Je suis persuader que la j'en demande trop mais qui ne demande rien n'a rien.

J'ai un programme qui compile des données et qui les stoque sous la forme suivante 999.999.999. dans un tableau sur le web.

Il insère un point a chaque milier c'est le pourquoi de mon recherche "." remplace par ""

En ce moment je fais du copier coller !
14/03/2007, 17h56
alsimbad

personelement, là, je peux rien pour toi. les interactions de excel avec les applications exteriures, c'est du chinois pour moi. va falloir faire appel aux grands maîtres.
14/03/2007, 21h05
vectorw16

Bien sais tu que j'ai trouvé un article intéressant sur :google2:
http://webdesign.about.com/od/tables/a/aa071502a.htm

Menu donnée --> Données externe --> nouvelle requêtes sur le web

J'ai sélectionner le tableau en question et j'ai importé les données dans excel !

C'est plutôt un bon départ :mrgreen:

Mon tableau est classé par date probablement que je suis en mesure de valider celle ci une fois importé ...

Mais il ne faut pas trop s'emballer !!
14/03/2007, 21h15
SfJ5Rpw8

Citation:

Envoyé par vectorw16

Bonjour à tous,

J'ai écrit une macro qui marche très bien mais je voudrais la rouler pour chaque cellule que je sélectionne ! Actuellement elle roule pour l'active cell seulement.

Je voudrais une boucle for qui utilise la sélection active pas une sélection déterminé. Exemple non fonctionnel :

:faq:

Comment ajouter une commande au menu contextuel d'une cellule Excel ?