Probleme code vba sur cumul

kevin2109 · 13 Juin 2018

Bonjour,
j'ai crée un fichier de cumul avec condition de date en vba mais je galère pour le positionnement des données .
Si quelqu' un peu me donner une info ca m'aiderais bien .
Je voudrais que le range (caisse ) soit horizontale dans mon fichier cumul .
J ai essayer resize(1, 1) ca marche mais il me copie que le cell 1.

Voici le code

Private Sub Transfert_Click()
Dim Col As Byte
Col = Day(Range("journee")) + 3
Sheets("cumul.pe").Cells(Col, 2).Resize(1, 15) = Range("caisse").Value

End Sub

Merci d'avance

Lone-wolf · 13 Juin 2018

Bonjour Kevin

Là je ne te comprends pas. Dans le gestionnaire des noms tu met "journée" = I2 et la cellule est vide, ensuite dans la macro

Col = Day(Range("journee")) + 3. Déjà ce n'est pas Col mais Lig qu'il faut mettre, Col se réfère en général à Colonne et pas Byte mais Long.
Ensuite tu met +3, ce qui est normalement la ligne 5, alors que la 1ère date est en ligne 4???

Lone-wolf · 13 Juin 2018

Re Kevin

Ton fichier en retour. Clique sur le bouton, ensuite change la date en A2 et reclique pour voir le résultat.

kevin2109 · 13 Juin 2018

La cellule i2= aujourdhui() je l ai laisser vide pour test date.
de base la feuille "cumul.pe" etait en colonne et on la changer en ligne .
pour le +3 c est ok il l'opère correctement je pense que il faudrait plutôt spécifier cells" b to p"

Private Sub Transfert_Click()
Dim Col As Long

Lig = Day(Range("journee")) + 3
Sheets("cumul.pe").Cells(Lig, 2).Resize(15, 1) = Range("caisse").Value

End Sub

Quesque tu en pense??

Lone-wolf · 13 Juin 2018

Re

Regarde mon précédent message. Et fait les tests.

EDIT: journée tu peux le mettre directement à I4. Mais de toute façon c'est faux, puisque la ligne doit être inscrite en face de la date.
Comme tu as fait, en changeant de date, tu va l'inscrire toujours à la même ligne.

Probleme code vba sur cumul

kevin2109

XLDnaute Nouveau

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

kevin2109

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Discussions similaires