[resolu] distribuer des vleurs de cellules

ElRagondindo

XLDnaute Nouveau
Bonjour à tous et à toute.
Je cherche distribuer les valeurs se trouvant dans des cellule d'une feuille vers une autre.
J'ai crée des variables pour indexer le deplacement dans les cellules d'origine et copier vers les cellules de de la seconde feuille.
C'est la fonction copie avec les variables qui ne semblent pas fonctionner, je pense avoir une erreur de syntaxe...



Sub Boutontransfert_cliquer()

Dim ColDep1 As Integer
Dim LigDep1 As Integer
Dim ColDep2 As Integer
Dim LigDep2 As Integer

Dim ColAri1 As Integer
Dim LigAri1 As Integer
Dim ColAri2 As Integer
Dim LigAri2 As Integer

ColDep1 = 1
LigDep1 = 2
ColDep2 = 4
LigDep2 = 2
LigAri1 = 1
LigAri2 = 3

Do While Not IsEmpty(Cells(LigDep1, ColDep1))

If (LigDep1 And 1) = 0 Then
ColAri1 = 1
ColAri2 = 1
Else
ColAri1 = 4
ColAri2 = 4
End If
Sheets("feuil2").Range(Cells(LigDep1, ColDep1)).Copy Sheets("feuil3").Range(Cells(LigAri1, ColAri1))
Sheets("feuil2").Range(Cells(LigDep1, ColDep2)).Copy Sheets("feuil3").Range(Cells(LigAri2, ColAri2))
LigDep1 = LigDep1 + 1
If (LigDep1 And 1) = 0 Then
LigAri1 = LigAri1 + 3
LigAri2 = LigAri2 + 3
End If

Loop

End Sub


Merci
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : distribuer des vleurs de cellules

Bonjour,

C'est la fonction copie avec les variables qui ne semblent pas fonctionner, je pense avoir une erreur de syntaxe...
cela veut dre quoi ? message d'erreur ou pas le résultat attendu ? un petit fichier en pièce jointe, représentant uniquement le problème posé avec données de départ et résultat attendu serait plus facile pour t'aider...

bonne journée
@+
 

ElRagondindo

XLDnaute Nouveau
Re : distribuer des vleurs de cellules

alors petit fichier joint le fichier xls et la police truetype car je travaille sur des codes barres dans le fichier.
Le but est de créer des étiquettes a partir d'un tableau ou je génère des codes barres.

l'erreur c'est 1004 mais bon je ne sais pas trop quoi dire à ce propos


Merci
 

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Re : distribuer des vleurs de cellules

Bonjour,
Pour la copie>>>> à verifier nom onglet.... feuil2, feuil3 ou Feuil2 , Feuil3
Code:
Sheets("feuil2").Cells(LigDep1, ColDep1).Copy :Sheets("feuil3").Cells(LigAri1, ColAri1).PasteSpecial
Sheets("feuil2").Cells(LigDep1, ColDep2).Copy :Sheets("feuil3").Cells(LigAri2, ColAri2).PasteSpecial
Bruno
 

ElRagondindo

XLDnaute Nouveau
Re : distribuer des vleurs de cellules

La fonction de copie est ok , je regle juste la destination des cellules ou je me suis planté dans le calcul mais ca devrais etre bon.

MErci
 

ElRagondindo

XLDnaute Nouveau
Re : distribuer des vleurs de cellules

Comme cela ne copie pas le format de police dans les cellules, j'aimerai applique un format sur toute les lignes multiple de 3 dans toute la feuille jusqu’à la fin de la feuille.(ainsi qu'un saut de page tous les multiple de 15 lignes).
ca me formaterai correctement la page je pense.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas