selectionner une colonne et lancer une macro dessus

[jdawson]

bonjour

a t'il moyen de selectionner une ou plusieurs colonne sous excell, toutes les colonnes se mettent en bleu et lancer ma macro qui travaillerai sur ces colonnes,

je sais pas si c est clair tout cela

j ai trouve ce code la

Sub SelectionPlageAvecSouris()
Dim MonTableau() As String
Dim Plage As Range
Dim j As Integer
Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
MonTableau = Split(Plage.Address, ",")
For j = 0 To UBound(MonTableau)
MsgBox MonTableau(j)
Next j
End Sub

a ce stade ca me demande de selectionner, je selectionne la colonne A et B par la souris, ca me confirme que la colonne A et B sont selectionnee

apres j ai ce code à mettre, inserer je sais pas comment

Cells.Replace What:=Chr(10), Replacement:=Chr(9), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

dans ce code je remplace simplement les LF par des tabulations

ainsi par le code integral je veux remplacer les LF par tabulations sur la selection que je fais au depart avec la souris

amicalement

bruno

 

[Pierrot93]

Re : selectionner une colonne et lancer une macro dessus

Bonjour,

ceci devrait fonctionner sur plusieurs colonnes selectionnées..

Selection.Replace What:=Chr(10), Replacement:=Chr(9), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

bon après midi
@+

 

[Theze]

Re : selectionner une colonne et lancer une macro dessus

Bonjour,

A partir de ton code :

Sub SelectionPlageAvecSouris()

    Dim Plage As Range
    Dim Cel As Range
    
    On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules.", Type:=8)
    
    For Each Cel In Plage
    
        Cel.Replace Chr(10), Chr(9), xlPart
        
    Next Cel

End Sub

Hervé.

 

[jdawson]

Re : selectionner une colonne et lancer une macro dessus

Bonjour les amis,

merci hervé je suis parti avec ton code qui partait du mien lol, ca marche super,
le seul truc est que si tu selectionne une colonne pour pas t embeter ca selectionne je suppose les 65000 lignes excell

j ai essaye en selectionner que la zone de travail ou tu veux, ca marche bien,

il faut donc pas selectionner toute une colonne ou tout la feuille excell qui va jusqu a 256 colonnes et 65000 lignes

une idee si on selectionne toute une colonne ou toute une feuille sans regarder ou sa fini

sinon ton code marche a merveille en selectionner ce que l on veut vraiment !!

merci à tous, merci Hervé !
bruno