Discussion :

[idir.17]

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 :

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

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 :

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

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

Idir

[vuong1]

Essayez :

Code :

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

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

sans oublier de déclarer Compteur2 et i.

[idir.17]

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 :

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

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

Et ca ne marche pas

[SfJ5Rpw8]

...
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 ?

[idir.17]

Comment ?

En fait Cel est defini comme tel:

Code :

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

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

et Cel2 :

Code :

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

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

[SfJ5Rpw8]

Code :

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

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

[idir.17]

Code :

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

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.

[SfJ5Rpw8]

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

[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.

[idir.17]

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 :

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

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...

[idir.17]

Essaie en uniformisant les formats

Code :

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

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.

[idir.17]

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

Code :

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

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 :

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

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

[idir.17]

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

Code :

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

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é..

[ouskel'n'or]

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

[idir.17]

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

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.

[ouskel'n'or]

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.

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

[ouskel'n'or]

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

Code :

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

    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

[idir.17]

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

Code :

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

    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)

[ouskel'n'or]

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

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 :

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

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...

[idir.17]

J'ai mis ca:

Code :

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

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