[VBA-E]Copier le contenu d'une cellule vers une autre

Bonjour,

je suis désolé de vous déranger avecune question qui parait aussi basique mais je n'arrive pas à copier le contenu d'une cellule sachant que c'est une valeur vers une autre. J'ai essayé :

Code:

---

1 2 3 4 5

Dim Valeur as string Dim Cel as Range Dim Cel2 as Range Valeur=Cel.Offset(i,1).Value Cel2.Offset(Compteur2,21).Value=Valeur

---

mais aussi

Code:

---

Cel.Offset(i,1).Copy Cel2.Offset(Compteur2,21)

---

Idir

Essayez :

Code:

---

Cells(Compteur2,21)=Cells(i,1)

---

sans oublier de déclarer Compteur2 et i.

i et Compteur 2 sont déjà déclarés.
Le truc c'est que j'ai déjà défini Cel et Cel2 car les 2 cellules ne proviennent pas du même classeur.
Donc j'ai essayé

Code:

---

Cel.Offset(i,1)=Cel2.Offset(Compteur2,21)

---

Et ca ne marche pas

Citation:

---

Envoyé par idir.17

...
Le truc c'est que j'ai déjà défini Cel et Cel2 car les 2 cellules ne proviennent pas du même classeur....

---

Comment ? :aie:

Citation:

---

Envoyé par bbil

Comment ? :aie:

---

En fait Cel est defini comme tel:

Code:

---

1 2 3

Dim Cel as Range Set Cel= Workbooks(Nom_Classeur_VAB).Worksheets("Feuil1").Range("B1")

---

et Cel2 :

Code:

---

1 2 3

Dim Cel2 as Range Set Cel2= Workbooks(Nom_Classeur_VarPN).Worksheets(Nom_Feuil_VarPN).Range("B1")

---

Et voila...
Je veux donc copier la valeur d'une cellule du workbooks VAB vers VarPn

Code:

---

1 2	Cel2.Offset(Compteur2,21)=Cel.Offset(i,1)

---

du moment que Compteur2 .. et i .. soit inférieur ou égal à (65536 - 2 , le 2 de B2) et supérieur ou égal à -1

;)

Citation:

---

Envoyé par bbil

Code:

---

1 2	Cel2.Offset(Compteur2,21)=Cel.Offset(i,1)

---

du moment que Compteur2 .. et i .. soit inférieur ou égal à (65536 - 2 , le 2 de B2) et supérieur ou égal à -1

;)

---

Merci de ton aide.

J'ai essayé exactement ca mais ca ne fait rien. Aucun message d'erreur.
C juste que ca ne fait rien cad que il n ya tjs rien dans la cellule de destination. Sinon Compteur 2 et i sont dans les zones.

au cas ou ce serai une histoire de valeur de Compteur2 ou i ... met les à 0 (ou remplace les..) histoire de voir si déjà tu arrive à copier B1=> B2;)

Ce qui me tracasse, c'est que tu sembles redéfinir Cel et Cel2 dans ta procédure.
Mais comme tu ne nous montres ton code que par petits morceaux, on ne peut pas deviner ce que tu fais réellement.

Citation:

---

Envoyé par AlainTech

Ce qui me tracasse, c'est que tu sembles redéfinir Cel et Cel2 dans ta procédure.
Mais comme tu ne nous montres ton code que par petits morceaux, on ne peut pas deviner ce que tu fais réellement.

---

Bon alors pour te répondre, je vais montrer mon code en entier:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim Cel As Range Dim Compteur As Integer Set Cel = Workbooks(Nom_Classeur_VAB).Worksheets("Feuil1").Range("B1") Compteur = 3 Do Until IsEmpty(Cel.Offset(Compteur)) Compteur = Compteur + 1 Loop Nb_Ligne = Compteur   Dim Cel2 As Range, Compteur2 As Integer Set Cel2 = Workbooks(Nom_Classeur_VarPN).Worksheets(Nom_Feuille_VarPN).Range("B1")   For i = 3 To Nb_Ligne Compteur2 = 1 Do Until IsEmpty(Cel.Offset(i)) Or IsEmpty(Cel2.Offset(Compteur2)) 'Comparaison des noms dans les cellules sur les deux feuilles If InStr(1, Mid(Cel2.Offset(Compteur2), 1, 13), Mid(Cel.Offset(i), 1, 13), vbTextCompare) <> 0 Then Cel.Offset(i, 1) = Cel2.Offset(Compteur2, 21) Exit Do End If Compteur2 = Compteur2 + 1 Loop Next

---

Voila en tout cas ce que tu me dis m'interresse vraiment voila donc si tu peux développer. Je soulignerais juste que j'ai fait un test en mettent apres le Then:
Cel.Offset(Compteur2,21).Value=1
et alors il me met des 1 au bon endroit. J'aimerais juste qu'il me mette la veleur en Cel.Offset(i,1)

Donc si quelqu'un peut m'aider ca me sauverait parce qu'il ne me reste plus que ce problème pour que ca tourne bien...

Citation:

---

Envoyé par ouskel'n'or

Essaie en uniformisant les formats

Code:

---

1 2 3 4

If InStr(1, Mid(Lcase(Cel2.Offset(Compteur2).value), 1, 13), Mid(Lcase(Cel.Offset(i), 1, 13).value), vbTextCompare) <> 0 Then Cel.Offset(i, 1).value = Cel2.Offset(Compteur2, 21).value Exit Do End If

---

A tout hasard mais parfois il fait bien les choses ;)
(Nous n'avons pas tes feuilles de calculs pour tester ce qu'il se passe)

---

Déjà essayé, ca ne marche pas. Ca fait pareil que l'autre, cad rien...
Je suis dans une impasse informatique.

Citation:

---

Envoyé par ouskel'n'or

Je ne veux pas te froisser mais dans ton code, tu fais bien

Code:

---

Offset(NbreLignes, NbreColonnes)

---

et non l'inverse ?
A tout hasard... :(

---

Je suis dsl j'avais pas vu que t avais change la condition if
je l'ai change et ca me mets une erreur de type affectation de propriété incorrecte.
Tu peux m'expliqué ce qu'est:

Code:

---

1 2	If InStr(1, Mid(LCase(Cel2.Offset(Compteur2).Value), 1, 13), Mid(LCase(Cel.Offset(i), 1, 13).Value), vbTextCompare) <> 0 Then

---

En ce qui concerne l'écriture du Offset c bon

Citation:

---

Envoyé par ouskel'n'or

Si tu mets vbTextCompare, c'est que tes cellules contiennent du texte... Est-c bien le cas ?
pour lcase, je mé gouré :oops:

Code:

---

If InStr(1, Mid(LCase(Cel2).Offset(Compteur2), 1, 13), Mid(LCase(Cel).Offset(i), 1, 13), vbTextCompare) <> 0 Then

---

Et d'ailleurs, je ne sais pas si on peut faire ça puisqu'il y a un offst.
Tu peux tester ? Je regarde de mon côté.
A+

---

Il y' a effectivement du texte

Et maintenant c une erreur de type Objet. Désolé..

Non, effectivement, supprime ce que je t'ai dit, c'était une c...rie :oops:

Citation:

---

Envoyé par ouskel'n'or

Non, effectivement, supprime ce que je t'ai dit, c'était une c...rie :oops:

---

C'est pas grave du tout, l'important c'est que tu aies essayé de m'aider.

Merci en tout cas d'y avoir passé du temps.

Bon, je repars au début.
A l'examen de ton code :
Tu cherches une chaîne dans une autre.
La chaîne que tu cherches fait 13 caractères
La chaîne dans laquelle tu cherches est plus longue.
Alors je ne comprends pas ce que tu fait.

Citation:

---

Mid(Cel.Offset(i), 1, 13)

---

Mid attend trois paramètres
1 est le début, 13, la fin.
Déjà, tu simplifierais en mettant "Left (Cel.Offset(i), 13)" dans les deux cas.
J'y retourne ;)

PS - Et arrête de citer mes bêtises :mouarf:

Voilà. J'ai testé ça et n'ai pas d'erreur

Code:

---

If InStr(1, Left(Trim(Cel2.Offset(Compteur2)), 13), Left(Trim(Cel.Offset(i)), 13), vbTextCompare) <> 0 Then

---

Pour indication (de ce que j'ignorais mais que tu sembles savoir... ) avec vbTextCompare, tu n'as pas besoin de lcase ni de Ucase. La comparaison ne distingue pas les majuscules des minuscules. Merci idir. A l'avenir, je l'utiliserai ;)

Citation:

---

Envoyé par ouskel'n'or

Voilà. J'ai testé ça et n'ai pas d'erreur

Code:

---

If InStr(1, Left(Trim(Cel2.Offset(Compteur2)), 13), Left(Trim(Cel.Offset(i)), 13), vbTextCompare) <> 0 Then

---

Pour indication (de ce que j'ignorais mais que tu sembles savoir... ) avec vbTextCompare, tu n'as pas besoin de lcase ni de Ucase. La comparaison ne distingue pas les majuscules des minuscules. Merci idir. A l'avenir, je l'utiliserai ;)

---

Ta programmation marche très bien pour comparer le texte mais je suis toukours incapable de copier la valeur qu'il y'a dans `
Cel.Offset(i,1)
pour la mettre dans

Cel2.Offset(Compteur2,21)
:cry:

Essaie de voir ce qu'il se passe en pas à pas et, après cette ligne,

Citation:

---

If InStr(1, Left(Trim(Cel2.Offset(Compteur2)), 13), Left(Trim(Cel.Offset(i)), 13), vbTextCompare) <> 0 Then

---

ajoute cette ligne dans ton code

Code:

---

Debug.Print Cel2.Offset(Compteur2, 21).value

---

et tu affiches la fenêtre "Exécution". Ds l'éditeur VB, Affichage -> "Fenêtre Exécution"
Tu dis ce que tu vois. Si tu ne vois rien c'est que l'occurence n'est pas trouvé ;)
Si tu vois quelque chose, c'est qu'il manque le value... ou autre chose... mais on trouvera...

J'ai mis ca:

Code:

---

1 2 3 4 5

If InStr(1, Left(Trim(Cel2.Offset(Compteur2)), 13), Left(Trim(Cel.Offset(i)), 13), vbTextCompare) <> 0 Then   Cel.Offset(i, 1).Value = Cel2.Offset(Compteur2, 21).Value Debug.Print Cel2.Offset(Compteur2, 21).Value

---

Et rien dans la fenetre d'execution....

En tout cas, c énorme, j'apprends plein de trucs