utilisation plage en variable

Le
Daniel
Bonjour,

J'ai la partie de code ci dessous qui fonctionne mais pour pouvoir
continuer avec l'instruction "Set champs =", je souhaitais mettre ma
selection dans une variabel et utiliser celle ci dans l'instruction or ç
ane marche pas. Quelle serait la bonne écriture ? svp

Merci d'avance
Daniel


** Code qui fonctionne **
' Sélection des cellules à traiter
Sheets("Feuille1").Range("A6:L6").Select
Range(Selection, Selection.End(xlDown)).Select

' Remplacement des virgules par des points en vue du transfert vers base
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse

' Copie des cellules
Selection.Copy

Set champ = [A6:L8]


** Code modifié qui ne fonctionne pas **
' Sélection des cellules à traiter
Sheets("Feuille1").Range("A6:L6").Select
$selection = Range(Selection, Selection.End(xlDown)).Select

' Remplacement des virgules par des points en vue du transfert vers base
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse

' Copie des cellules
Selection.Copy

Set champ = $selection
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Charabeuh
Le #17493361
Bonjour,

pas certain d'avoir tout compris.

essaye ceci ?

Sub test()
Dim Champ As Range
' Cellules à traiter
Sheets("Feuille1").Activate
Set Champ = Range(Range("A6:L6"), Range("A6:L6").End(xlDown))

' Remplacement des virgules par des points en vue du transfert vers base
Champ.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse

' Copie des cellules
Champ.Copy
End Sub







"Daniel"
Bonjour,

J'ai la partie de code ci dessous qui fonctionne mais pour pouvoir continuer avec l'instruction "Set champs =...", je souhaitais
mettre ma selection dans une variabel et utiliser celle ci dans l'instruction or ç ane marche pas. Quelle serait la bonne écriture
? svp

Merci d'avance
Daniel


** Code qui fonctionne **
' Sélection des cellules à traiter
Sheets("Feuille1").Range("A6:L6").Select
Range(Selection, Selection.End(xlDown)).Select

' Remplacement des virgules par des points en vue du transfert vers base
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse

' Copie des cellules
Selection.Copy

Set champ = [A6:L8]


** Code modifié qui ne fonctionne pas **
' Sélection des cellules à traiter
Sheets("Feuille1").Range("A6:L6").Select
$selection = Range(Selection, Selection.End(xlDown)).Select

' Remplacement des virgules par des points en vue du transfert vers base
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse

' Copie des cellules
Selection.Copy

Set champ = $selection


Publicité
Poster une réponse
Anonyme