Probleme de selection de données et coller les valeurs

[steph_20]

Bonjour

j'ai réalisé une macro qui selectionne dans un tableau du "texte et du nombre";ensuite copie cette selection puis la colle au meme emplacement mais seulement les valeurs.
Voici ce qu j'ai trouvé:

[cpp]Sub Macro3()
'
' Macro3 Macro
'
[A18:H41].SpecialCells(xlCellTypeConstants, 3).Select
' 2 ème argument =3 (texte+nombre)
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[/cpp]
Mais j'ai un probleme;ma macro ne marche pas elle m'affiche le message d'erreur suivant:"Erreur d'exécution '1004' Impossible d'exécuter cette commande sur des selection multiples.

Comment faire pour copier la selection et coller les valeurs de la dite selection au meme emplacement?

Merci de m'aider.

 

[zeb]

Salut,

Mais quelle horreur !
Primo, ton programme se permet d'écraser le contenu du presse-papier, réservé à l'usage exclusif de le l'utilisateur. Secondo, tu perds de la ressource à sélectionner inutilement tes objets.

Bon, pour une cellule, il suffit de dire que la formule devient la valeur.

Dim cellule As Range
cellule.Formula = cellule.Value

Maintenant, il suffit d'itérer sur ta plage de cellules pour toutes les transformer :

Dim cellule As Range
For Each cellule In [A18:H41].SpecialCells(xlCellTypeConstants, 3)
    cellule.Formula = cellule.Value
Next

 

[steph_20]

Salut,

Mais quelle horreur !
Primo, ton programme se permet d'écraser le contenu du presse-papier, réservé à l'usage exclusif de le l'utilisateur. Secondo, tu perds de la ressource à sélectionner inutilement tes objets.

Bon, pour une cellule, il suffit de dire que la formule devient la valeur.

Dim cellule As Range
cellule.Formula = cellule.Value

Maintenant, il suffit d'itérer sur ta plage de cellules pour toutes les transformer :

Dim cellule As Range
For Each cellule In [A18:H41].SpecialCells(xlCellTypeConstants, 3)
    cellule.Formula = cellule.Value
Next

Bonjour
Je voudrais vous remercier pour votre aide.J'ai aplliquer le code que vous m'avez donné;mais il ne marche toujours pas:
Voici mon code:

[cpp]Sub coller_valeur()
'
' coller_valeur Macro

Dim cellule As Range
[A18:H41].SpecialCells(xlCellTypeConstants, 3).Select
For Each cellule In [A18:H41].SpecialCells(xlCellTypeConstants, 3)
cellule.Formula = cellule.Value
Next

End Sub[/cpp]

Le probleme c'est que la macro arrive a selectionner les plages contenant du texte et du nombre;mais les formules des cellules selectionnées ne sont toujours pas remplacées par leurs valeurs.

Comment pourrais je regler ce probleme?

Merci de m'aider.

 

[zeb]

Tu perds de la ressource à sélectionner inutilement tes objets.
Alors pourquoi garder la ligne 6 ????

Euh...... Relis l'aide sur SpecialCells() avec xlCellTypeConstants comme paramètre et dis-moi ce que t'en pense.