Discussion :

[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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir

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

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



michel

[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

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vectorw16]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vectorw16]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?