Récupération des valeurs et non des formules.

[daniel1949]

Bonjour le forum,
J'ai à transposer des valeurs variables de la feuille "Matrice" à la feuille "Collecteur".
J'ai trouvé sur un forum cette macro que j'ai adapté :
Sub Recup()
Dim Col As Integer
With Feuil6 ' Feuil6 = Collecteur
Do
Col = Col + 10
Loop While WorksheetFunction.CountA(.Columns(Col))
Feuil5.[U:AF].Copy .Columns(Col) ' Feuil5 = Matrice
End With
Application.CutCopyMode = False
End Sub
Mon problème est que cette copie reprend les formules et l'environnement et NON les valeurs comme je le souhaite.
Pourriez-vous m'indiquer le code correspondant à la copie des valeurs...
Un grand merci.
Daniel

 

[gilbert_RGI]

Re : Récupération des valeurs et non des formules.

bonjour

essayer ceci

Sub Recup()
Dim Col As Integer
With Feuil6 ' Feuil6 = Collecteur
Do
Col = Col + 10
Loop While WorksheetFunction.CountA(.Columns(Col))
Feuil5.[U:AF].Copy
.Columns(Col).Select ' Feuil5 = Matrice
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub

 

[tototiti2008]

Re : Récupération des valeurs et non des formules.

Bonjour daniel1949,

peut être un truc comme ça :

Sub Recup()
Dim Col As Integer
With Feuil6 ' Feuil6 = Collecteur
Do
Col = Col + 10
Loop While WorksheetFunction.CountA(.Columns(Col)) 
Feuil5.[U:AF].Copy
.Columns(Col).PasteSpecial Paste:=xlPasteValues ' Feuil5 = Matrice
End With
Application.CutCopyMode = False
End Sub

mais je n'ai pas tout compris du code original, alors pas sûr...

Edit : Bonjour Gilbert

 

[daniel1949]

Re : Récupération des valeurs et non des formules.

Bonjour gilbert_RGI,
J'ai une erreur 424 sur la ligne : Feuil5.[U:AF]...Select

Feuil5.[U:AF].Copy
.Columns(Col).Select ' Feuil5 = Matrice
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'ai déjà essayé cette méthode du collage spécial mais (de mémoire) la macro n'aime pas le Select.

Pour mémoire :
Objet requis (erreur 424)
Les références aux propriétés et aux méthodes requièrent souvent un qualificateur d'objet explicite. Causes et solutions de cette erreur :

Vous avez fait référence à une propriété ou une méthode d'objet, mais n'avez pas fourni de qualificateur d'objet correct.
Spécifiez un qualificateur d'objet si vous ne l'avez pas fait. Par exemple, bien que vous puissiez omettre un qualificateur d'objet lors de la référence à une propriété de formulaire à partir du module du formulaire, vous devez explicitement spécifier le qualificateur lors d'une référence à la propriété à partir d'un module standard.

Vous avez fourni un qualificateur d'objet, mais il n'est pas reconnu comme un objet.
Vérifiez l'orthographe du qualificateur d'objet et assurez-vous que l'objet est visible dans la partie du programme dans laquelle vous y faites référence. Dans le cas d'objets Collection, vérifiez toutes les occurrences de la méthode Add pour vous assurer que la syntaxe et l'orthographe de tous les éléments sont correctes.

Vous avez fourni un qualificateur d'objet correct, mais une autre partie de l'appel contient une erreur.
Un chemin d'accès incorrect fourni comme argument à une commande Fichier Ouvrir d'une application hôte pourrait avoir causé cette erreur. Vérifiez les arguments.

Vous n'avez pas utilisé l'instruction Set lors de l'affectation d'une référence d'objet.
Si vous affectez la valeur de renvoi d'un appel CreateObject à une variable de type Variant, une erreur ne se produit pas nécessairement si l'instruction Set est omise. Dans l'exemple de code suivant, une instance implicite de Microsoft Excel est créée, et sa propriété par défaut (la chaîne "Microsoft Excel") est renvoyée et affectée à la variable Variant RetVal. Toute tentative subséquente d'utilisation de RetVal comme référence d'objet provoque cette erreur :

--------------------------------------------------------------------------------------
Merci d'avoir répondu...
Daniel

 

[gilbert_RGI]

Re : Récupération des valeurs et non des formules.

Bonjour gilbert_RGI,
J'ai une erreur 424 sur la ligne : Feuil5.[U:AF]...Select

Feuil5.[U:AF].Copy
.Columns(Col).Select ' Feuil5 = Matrice
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

--------------------------------------------------------------------------------------
Merci d'avoir répondu...
Daniel

voir la réponse de TOTOTITI2008

 

[daniel1949]

Re : Récupération des valeurs et non des formules.

Bonjour tototiti2008,
J'ai toujours le même pb : Erreur 424 sur la même ligne :

Feuil5.[U:AF].Copy
.Columns(Col).PasteSpecial Paste:=xlPasteValues

Merci d'avoir essayé.
Daniel

 

[gilbert_RGI]

Re : Récupération des valeurs et non des formules.

Bonjour tototiti2008,
J'ai toujours le même pb : Erreur 424 sur la même ligne :

Feuil5.[U:AF].Copy
.Columns(Col).PasteSpecial Paste:=xlPasteValues

Merci d'avoir essayé.
Daniel

voir la position" .Columns(Col)." qui ne correspond pas sans doute à une position de destination

 

[daniel1949]

Re : Récupération des valeurs et non des formules.

Merci Gilbert.
C'est LA solution ce qui fait :

Sub Recup()
Dim Col As Integer
With Feuil6
Do
Col = Col + 10
Loop While WorksheetFunction.CountA(.Columns(Col)) ' CountA
Feuil5.[U:AF].Copy
.Columns(Col).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

End Sub

Bonne journée à tous.
Daniel