Copie de cellule d'un onglet à l'autre

[Adriano43]

Bonjour le forum,

Je souhaite copier sous conditions des cellules d'un onglet à l'autre, mais j'ai fais le code suivant mais rien ne se passe et aucun débogage; pourtant tout a l'air ok, je comprends pas la subtilité... Pouvez-vous m'aider??

Voici le code que j'ai fait:

Public Sub prcprog()

    Dim i As Integer
        
    Application.ScreenUpdating = False
    Sheets("Programmation Relevés").Select
    For i = 2 To Range("A3").End(xlUp).Row Step 1
     If Cells(i, 1).Value = Sheets("BDD").Cells(i, 1).Value Then Cells(i, 2).Value = Sheets("BDD").Cells(i, 11).Value
     If Cells(i, 1).Value = Sheets("BDD").Cells(i, 1).Value Then Cells(i, 3).Value = Sheets("BDD").Cells(i, 14).Value
     If Cells(i, 1).Value = Sheets("BDD").Cells(i, 1).Value Then Cells(i, 4).Value = Sheets("BDD").Cells(i, 17).Value
     If Cells(i, 1).Value = Sheets("BDD").Cells(i, 1).Value Then Cells(i, 5).Value = Sheets("BDD").Cells(i, 19).Value
    Next i
    Application.ScreenUpdating = True
    
End Sub

Cordialement

Adriano43

 

[phlaurent55]

Re : Copie de cellule d'un onglet à l'autre

Bonjour Adriano,

voir le code c'est bien, mais voir le fichier serait encore mieux
pour le moment, la boucle For I se limite à 3 (au maximum)

à+
Philippe

 

[Pierrot93]

Re : Copie de cellule d'un onglet à l'autre

Bonjour Adriano, Philippe

remplace peut être ceci :

For i = 2 To Range("A3").End(xlUp).Row Step 1

par cela :

For i = 2 To Range("A65536").End(xlUp).Row Step 1

bon après midi
@+

 

[Adriano43]

Re : Copie de cellule d'un onglet à l'autre

Re,

Ci-joint un fichier exemple

 

[Pierrot93]

Re : Copie de cellule d'un onglet à l'autre

Re,

As tu essayé la proposition pàst #3 ?

 

[Adriano43]

Re : Copie de cellule d'un onglet à l'autre

Oui, mais rien n'y fait...

 

[bbb38]

Re : Copie de cellule d'un onglet à l'autre

Bonjour Adriano, Philippe, Pierrot, le forum,
Sur la feuille « BDD », tu indiques :

Colonne b = BDD!Colonne K
Colonne C = BDD!Colonne N
Colonne d = BDD! Colonne Q
Colonne E = BDD! Colonne S.

Mais, les cellules de ces colonnes sont vides, exceptées la première ligne (ou je n’ai rien compris à ta demande).
Cordialement,
Bernard

 

[Adriano43]

Re : Copie de cellule d'un onglet à l'autre

Bonjour,

Merci de vous intéressé à mon problème. Les indications sont uniquement des aides.
Cela sous entend que ma colonne de feuille "Prog" doit égaler les valeurs contenues sur la feuille "BDD" en colonne K etc... En tenant compte des valeurs de la colonne A.
la macro analyse la colonne A de la feuille "prog" recherche cette valeur en feuille "bdd" et copie sur la feuille prog colonne b la valeur de la feuille bdd colonne k de la ligne correspondante..

M'avez vous compris?

 

[bbb38]

Re : Copie de cellule d'un onglet à l'autre

Bonjour Adriano, Philippe, Pierrot, le forum,
Je fatigue, donc je vais prendre un café pour me réveiller.
Sur la feuille « BDD », j’ai essayé d’expliquer le fonctionnement de la macro. Ces fonctions correspondent-elles à ta demande ?
Cordialement,
Bernard

 

[Adriano43]

Re : Copie de cellule d'un onglet à l'autre

Re,

Oui c'est tout à fait ça!!! Par contre j'ai essayé mais celle-ci ne fonctionne pas bien que j'ai enlevé les apostrophes...

 

[bbb38]

Re : Copie de cellule d'un onglet à l'autre

Bonjour Adriano, le forum,
Une solution par boucles (moins rapide que par tableaux), à tester.
Pour le test, j’ai mis des informations dans les cellules à copier.
Cordialement,
Bernard

 

[Adriano43]

Re : Copie de cellule d'un onglet à l'autre

Re le forum,

N'ayant pas pu venir vers vous plutot, je vous donne des retours du dernier fichier proposé par bbb38.
J'ai essayé de l'adapter à mon fichier réel mais sans succès, des infos ne sont pas copiées, d'autres décalées...
Je vous transmets un ficher réel exemple avec les macros présentes...

Si vous pouviez m'aider encore une fois... Moi je n'y arrive plus

Cordialement

Adriano43

 

[bbb38]

Re : Copie de cellule d'un onglet à l'autre

Bonjour Adriano, le forum,
J’ai effectué les adaptations, en testant à partir de la base de données (je suis absent deux semaines).
Cordialement,
Bernard