Discussion :

[manuhell60]

bonjour,

je cherche en VBA a copier la valeurs de différentes cellules d'un feuille vers d'autres cellules elles aussi différentes.

exemple:
je voudrais copier la valeurs des cellule de la feuil1 A1;B5;C10;E15 Vers respectivement les cellules de la feuil2 B1;B2;D5;A3
Existe-t-il une méthode moins contraignante que de copier la valeur de chaque cellule vers la sa cellule respective.

existe-il une autre méthode que : range copy ou .value=.value que j’écris pour chaque cellule.


Dans mon fichier cela représentante une cinquantaine de cellule.
je voudrais faire autre chose que d'écrire cinquante fois : sheets(feuil2).range("B1").value=sheets(feuil1).range("A1").

Merci

[ChristianBosch]

Salut, il vaut mieux utiliser ce genre de syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.range(A1).value= feuil2.range(B1).value

C'est également beaucoup moins gourmand en ressources que le copier coller, puisque ici on viens seulement changer la valeur de la cellule de la feuile B1 avec celle de la feuille A1, on ne passe pas par le presse papier et on ne copie pas les autres attributs de l'objet Range.

Par contre je ne connais pas de methode pour copier des cellules discontinues dans d'autre cellules discontinues, il va falloir le faire pour chaque cellules. Je connais le UnionRange mais ici ça ne te servira pas.

[halaster08]

Bonjour,

Tu peux passer par un tableau (https://silkyroad.developpez.com/vba/tableaux/) pour y renseigner toutes les cellules de départ/arrivée puis faire une boucle sur ton tableau

[manuhell60]

en complément, il s'agit de celulles discontinues, donc même en passant par un tableau et une boucle, cela ne résous pas ma difficulté.

Je veux prendre les valeurs des cellules A5:D2;G4;H8;S25 qui alimente ligne après ligne les cellules d'une autre feuille vers respectivement les cellules A4;A1;A20;A10;A3.

Merci

[halaster08]

en complément, il s'agit de celulles discontinues, donc même en passant par un tableau et une boucle, cela ne résous pas ma difficulté.

Je ne parle pas d'un tableau de données, mais d'une variable tableau (un tableau de deux dimensions, ou deux tableau d'une dimension) que tu peux alimenter avec tes deux liste de cellules discontinue et ensuite utilisé pour ton copié coller
un exemple pour remplir une plage discontinue avec une valeur fixe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Option Base 0
 
Sub ExempleArray_V01()
    Dim NomTableau As Variant
    Dim i As Long
    NomTableau = Array("a1", "b3", "c2")
 
 For i = LBound(NomTableau) To UBound(NomTableau)
        Range(NomTableau(i)).Value = 1
    Next i
End Sub