Bonjour à tous
je sollicite votre aide pour 2 points bloquants. Je cherche à recopier les valeurs de cellules non contiguës d'une feuille à une autre. Je n'arrive pas à sélectionner lesdites cellules non contiguës aussi je suis obligé dans un endroit de la feuille source d'aller reprendre le contenu de ces cellules pour les avoir côte à côte et j'utilise ensuite cette plage dans mon code. Si j'écris Worksheets(Source).Range("B3,C3,E6,EZ4,EZ5").Copy ça ne marche pas.
Ensuite, j'arrive à faire une copie de cette plage vers une autre feuille mais pas directement un copier / coller valeur.
Ceci étant, une fois la copie faite, je passe à une autre liste via menu déroulant, j'actualise les données et je relance le code pour recopier les données vers l'autre feuille à la suite des précédentes copiées.
Je précise que mon fichier est volontairement en lecture seule et qu'il s'actualise seulement lorsque je clique sur un bouton.
J'espère que vous pourrez m'aider à améliorer tout ça.
Bonne soirée
je sollicite votre aide pour 2 points bloquants. Je cherche à recopier les valeurs de cellules non contiguës d'une feuille à une autre. Je n'arrive pas à sélectionner lesdites cellules non contiguës aussi je suis obligé dans un endroit de la feuille source d'aller reprendre le contenu de ces cellules pour les avoir côte à côte et j'utilise ensuite cette plage dans mon code. Si j'écris Worksheets(Source).Range("B3,C3,E6,EZ4,EZ5").Copy ça ne marche pas.
Ensuite, j'arrive à faire une copie de cette plage vers une autre feuille mais pas directement un copier / coller valeur.
Ceci étant, une fois la copie faite, je passe à une autre liste via menu déroulant, j'actualise les données et je relance le code pour recopier les données vers l'autre feuille à la suite des précédentes copiées.
Je précise que mon fichier est volontairement en lecture seule et qu'il s'actualise seulement lorsque je clique sur un bouton.
J'espère que vous pourrez m'aider à améliorer tout ça.
Bonne soirée
VB:
Sub Recopie()
Dim Source As String
Dim Cible As String
Dim Derlig As Long
Cible = "Recopie"
Source = "Graphs"
Derlig = Worksheets(Cible).Range("A" & Rows.Count).End(xlUp).Row + 1
'Copie des valeurs
With Worksheets(Cible)
Worksheets(Source).Range("FZ1:GF1").Copy .Range("A" & Derlig)
.Range("A2:G600").Value = .Range("A2:G600").Value
End With
End Sub