Microsoft 365 Rapatrier une valeur

[Piksaw]

Bonjour a tous,


j'ai cette ligne dans un code qui fonctionne parfaitement

Range("G21").Value = Range("X" & ligne).Value


et j'aimerais en créer une autre pour lui dire va chercher de la ligne X a la ligne EO et rapatrie toute les valeurs que tu trouve dans les cellules G21:G222

j'ai essayer plusieurs chose mais impossible de trouver la bonne combinaison

voilà un peut ce que j'aimerais comme ligne

Range("G21:G222").Value = Range("X:EO" & ligne).Value

si quelqu'un aurait une idée comment formuler ça en VBA

 

[mutzik]

bjr
Range("G21:G222").Value = Range("X" & ligne & ":EO" & ligne).Value

 

[Piksaw]

bjr
Range("G21:G222").Value = Range("X" & ligne & ":EO" & ligne).Value

bonjour,

merci pour ton aide, ça fonctionne mais il me recopie uniquement la valeur de X et ensuite il me la recopier sur les G21:G222 il ne prend pas les autre valeur qui sont a coté de X

 

[Piksaw]

Enfaite ce que j'aimerais faire c'est de la cellule X a maximum EO il peut y avoir des données

du coup j'aimerais qu'il aille me les chercher et qu'il me les mettent dans les cellules G12 a G222

voila un fichier joint c'est plus simple pour comprendre je pense

PS: Il faut cliquer sur une des cellules ou il y a les données enregistrées pour que ça me rapatrie l’ensemble des données

 

[xUpsilon]

Bonjour,

On attend toujours le fichier.
En fait tu veux faire un copie/colle en transposant X à EO dans G12 à G222 ?

Range("X" & ligne &  ":EO" & ligne).Copy
Range("G12:G222").PasteSpecial Transpose:=True

Bonne journée,

 

[Piksaw]

Bonjour,

On attend toujours le fichier.
En fait tu veux faire un copie/colle en transposant X à EO dans G12 à G222 ?

Range("X" & ligne &  ":EO" & ligne).Copy
Range("G12:G222").PasteSpecial Transpose:=True

Bonne journée,

Bonjour, oui c'est exactement ça que je veux faire


quand je clique sur un client il me rapatrie les donné qui sont de X a EO dans les cellule G12 a G222 et ensuite je peux modifier le client si besoin et ensuite ne cliquant sur modifier il me met a jour le client

j'avais pas vu que le fichier n'avait pas passer

 

[Piksaw]

Enfaite je voudrai avoir la même ligne que ça

Range("J20").Value = Range("W" & ligne).Value


mais qui prendrais de G12 à G222 et ligne X a EO

 

[Phil69970]

Bonjour à tous

@Piksaw :

Je comprends pas trop ce que tu veux faire car :
1)
De G12:G222 ==> 211 cellules
X:EO ==> 122 cellules

Si tu veux copier :
Range("G21:G222").Value = Range("X:EO" & ligne).Value

Tu auras 89 cellules vides ==> Lignes 134 à lignes 222 compris

Donc quelle est l'utilité de faire cela ???

2)
Dans l'exemple de ton fichier il n'y a aucune valeur exploitable entre X.... et EO....

J'en déduis que ton fichier n'est pas représentatif et/ou ton problème mal exposé.

Accessoirement il manque plein de macro dans ton fichier....

Bonne lecture

@Phil69970

 

[Piksaw]

Bonjour à tous

@Piksaw :

Je comprends pas trop ce que tu veux faire car :
1)
De G12:G222 ==> 211 cellules
X:EO ==> 122 cellules

Si tu veux copier :
Range("G21:G222").Value = Range("X:EO" & ligne).Value

Tu auras 89 cellules vides ==> Lignes 134 à lignes 222 compris

Donc quelle est l'utilité de faire cela ???

2)
Dans l'exemple de ton fichier il n'y a aucune valeur exploitable entre X.... et EO....

J'en déduis que ton fichier n'est pas représentatif et/ou ton problème mal exposé.

Accessoirement il manque plein de macro dans ton fichier....

Bonne lecture

@Phil69970

Bonjour,

voilà le fichier complet avec les macro fonctionnel

ce sera plus facile pour faire des essais

enfaite quand je rentre un clients la description des travaux ( de G12 a G222) varie en fonction des clients j'ai pris une marge ne disant que ça n'ira jamais au delà.


ensuite quand je valide le client avec la touche ajouter , je peut le modifier en cliquant sur un client existant. Est c'est la le petit soucis, j'aimerai qu'il me rapatrie mes valeur, je pourrait faire cellule par cellule mais ce serait long.

voila le fichier