Utilisation d'une selection en VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Utilisation d'une selection en VBA

sorganno

Bonjour,
J'aimerais pouvoir réaliser une fonction sur toute les cases sélectionner sur Excel. Mais je n'arrive pas à trouver comment avoir des information sur ma sélection.
Voici mon code :

Code :

Sub ChangeTxt()
Dim Selected As String
Selected = Selection.Value
Dim Longueur As Integer
Longueur = Len(Selected)
Dim Delend As Integer
Delend = InStr(1, Selected, "uis" )
Dim Retour As String
Retour = Mid(Selected, Delend + 4)
Cells(18, 10) = Retour 'Ceci est pour le test d'une seul cellule
End Sub

Cela fonctionne pour une cellule mais j'aimerais donc le faire pour tout une plage de cellule.
Merci d'avance !

---------------
Cordialement,

Publicité

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Quelle chose comme :

Code :

Option Explicit
Sub ChangeTxt()
Dim cellule As Range
Dim pointeur As Long
Dim Retour As String
If TypeName(Selection) <> "Range" Then Exit Sub
For Each cellule In Selection.Cells
If TypeName(cellule.Value) = "String" Then
pointeur = InStr(1, cellule.Value, "uis" )
If pointeur > 0 Then
Retour = Mid(cellule.Value, pointeur + 4)
'
'et la suite du traitement ...
'
End If
End If
Next cellule
End Sub

---------------
Cordialement, Patrice

sorganno

Merci beaucoup ! Parfait !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Utilisation d'une selection en VBA

Sujets relatifs
Modifier valeur cellule Excel en VBA Access	A-t-on vraiment besoin du VBA sur Excel ? Voyez-vous même
[VBA] Filtrage adressage ip	Utilisation des signets en VB
[VBA Excel] Tirage de personne en aleatoire selon 2 conditions	[VBA] Mettre en forme une partie d'une cellule
[VBA Excel] Recuperer une couleur mise en forme par condition	framework et utilisation des services
[VBA/HTML] SET de champ qui marche en F8 mais pas en F5	[VBA] Lecture fichier texte
Plus de sujets relatifs à : Utilisation d'une selection en VBA

Page générée en 0.028 secondes