Bonjour à tous,
En cherchant sur le forum j'ai trouvé ce code :
Il rempli bien les conditions que je souhaite en terme de sélection pour choisir les plages. Tout ça très bien.
Seulement le problème c est que les cellules que je sélectionne sont des cellules avec des formules à l'intérieur et la le code me copie et colle les formules.
Et donc j'aimerai changer la ligne de copy pour lui faire faire un collage special pour avoir uniquement la valeur et pas la formule.
En vous remerciant
En cherchant sur le forum j'ai trouvé ce code :
Code:
Sub J()
Dim r As Range, w1 As Worksheet, c As Integer, w2 As Worksheet
'définir deux feuille
Set w1 = Worksheets("Feuil1")
Set w2 = Worksheets("Feuil2")
'demander à l'utilisateur d'entrer un numéro de colonne
Do
c = Application.InputBox(prompt:="Entrez un numéro decolonne", Type:=1)
Loop Until c > 0 And c < Rows.Count - 1
'définir une plage (ici C2:C10 dans "Feuil1" si l'utilisateur à entré 3)
Set Rg = w1.Range(w1.Cells(2, c), w1.Cells(10, c))
'copier la plage (ici copié en Feuil2!A1)
Rg.Copy Destination:=w2.Cells(1, 1)
End Sub
Il rempli bien les conditions que je souhaite en terme de sélection pour choisir les plages. Tout ça très bien.
Seulement le problème c est que les cellules que je sélectionne sont des cellules avec des formules à l'intérieur et la le code me copie et colle les formules.
Et donc j'aimerai changer la ligne de copy pour lui faire faire un collage special pour avoir uniquement la valeur et pas la formule.
En vous remerciant