Probléme avec NextRow

Re : Probléme avec NextRow

re:

Sheet("article").select
ActiveCell.Offset(0,5).Copy
Sheets("Facture").range("E22").end(xldown)(2) = sheets("article").activecell.offset(0,5)

Cliquez pour agrandir...

je ne vois rien de special dans cette ligne, tu n'as plus besoin des lignes en rouge
ecris :

a$ = sheets("article").activecell.address
b$ = sheets("article").activecell.offset(0,5).address
Sheets("Facture").range("E22").end(xldown)(2) = sheets("article").activecell.offset(0,5)

Cliquez pour agrandir...

quand ca plantera, tu passeras avec ton curseur sur a$ et b$, il t'affichera normalement sur a$ l'adresse de activecell et sur b$ 5 colonne à droite

Re : Probléme avec NextRow

Bonsoir, Wilfried42, BrunoM42 et Piboulet,

Je rentre du travail, (j'ai des horaires spéciaux avec astreinte), et je prends, avec plaisir, connaissance de vos messages

Il est vrai que tout tourne autour de la recherche de la première cellule vide d'une colonne, puis coller uniquement des valeurs à partir de cette cellule.
Pour les factures la plage est E23-E46
pour les feuilles de stock la plage est A14-A65000

Pour Piboulet, j'ai tenu compte de ce que tu m'avais précisé dans le fil et quand je me positionne en E22, la cellule E23 est déja renseignée.

Je vais mettre en place vos codes et vous informe des résultats

Excusez moi, j'ai essayé de joindre fichier .zip en utilisant fichiers attachés, gerer les pieces jointes, mais ça ne passe pas

Merci, du temps que vous passez sur ce sujet.

Bien à vous ,macjade62

Re : Probléme avec NextRow

Bonjour,

Voilà je me suis remis au code.
J'ai fait le test proposé par BrunoM45

Code:
Sheets("Facture").range("E22").end(xldown).Offset(1,0).value = "TEST"

Lors de l'éxecution je recois message
Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet

Puis j'ai fait

Sheets("Facture").range("E22").end(xldown).
pour vérifier que je me positionne au bon endroit
et la j'ai le message suivant
Erreur d'exécution '438'
Propriéte ou méthode non gérée par cet objet

Lorsque je lance l'exécution la feuille active est "Article"

qu'en pensez vous

Bien à bous macjade62

Re : Probléme avec NextRow

Salut MacJade,

Je ne comprends pas, chez moi sur Excel 2003, il n'y a aucun problème 😕

De plus, je suis en train de m'appercevoir que sur ce fil tu n'as jamis donné de fichier !?

Alors je pense qu'il faut vraiment que tu le mettes en ligne si tu veux que l'on puisse t'aider 🙄

A+

Re : Probléme avec NextRow

Bonsoir BrunoM45,
je rentre du boulot, merci pour ta réponse,
en effet je n'ai pas mis de fichier la classeur excel fait environ 20 Mo
Difficile à joindre
je vais faire un extrait avec les feuilles principales et essayer de le joindre,

comme tu peux le voir, il n'y a pas longtemps que je suis sur ce forum
et je n'ai pas fait le tour de toutes ses fonctionnalité

Merçi de ta patience

Mais il est effectif que je ne comprend pas pourquoi ça ne fonctionne pas
pour m'aider, en plus de ce forum j'utilise un bouquin
" Excel 2002 et VBA le guide du developpeur de john Walkenbach" edité par Eyrolles diffusion serie OEM

J'avoue que je me perd un peu, et vos avis sont très précieux.

Bien à vous macjade62

Re : Probléme avec NextRow

Un truc auquel je n'ai pas pensé,

Tu n'aurais pas une référence manquante par hasard ?

Re : Probléme avec NextRow

Bonsoir à tous,
Bonsoir au fil,
Merçi BrunoM45,

Je verifie ta suggestion.

Bien, j'ai préparé un extrait du classeur que je souhaite mettre au point,
mais aprés compession j'ai un fichier .zip de 640 Ko

Est-ce qu'il y a un moyen de le transmettre en dehors du fil

par exemple Yahoo Messenger ? ou Mail

Bien à vous , macjade62

Re : Probléme avec NextRow

Bonsoir le fil,

Je dois vraiment être nul.
Lors des essais sur le classeur, manuellement les copier/coller en collage spécial valeur fonctionne bien.

Les reports et les calculs sont cohérents et donnent les bons résultats.

Mais lorsque j'essais d'automatiser par macro ou code VBA pas grand chose fonctionne.

Je ne sais plus comment faire

De plus j'ai de nouveau essayé de prendre des extraits du classeur, pour le joindre au fil, mais je n'arrive pas à sortir un fichier .zip inférieur à 600Ko

si je diminue encore ce n'est plus compréhensible.

Espère solution(s),

Bien à vous, macjade62

Re : Probléme avec NextRow

Bonsoir le fil,

Merçi à tous, un grand merçi pour ceux qui se sont investis

La partie génération de facture fonctionne.

Le pbl etait une mauvaise interprétation de ma part
du fonctionnement de AtiveCell.Offset(0,5) qui sélection la cellule
de la même ligne, 5ème colonne à droite

Je souhaitais en fait faire une sélection de:
Cellule active jusqu'à la 5 éme colonne à droite
ex: si cellule active = B5 je souhaitais sélectionner de B5 à B10

le code issu de vos conseils est:

Sub Facturer()

Sheets("article").Select
ActiveCell.Offset(0,2).Select
Apllication.cutCopyMode = False
Selection.Copy
Sheets("facture").Select
NextRow = Range ("G40").End(x1Up).offset(1,.).Select
Selection.PasteSpecial Past=x1PasteValues,Operation:=x1None, SkipBlanks_
:=False, Transpose:=False

End Sub

ce qui me copie le N° de l'article dans la Facture, les autres colonnes sont renseignées par un RechercheV()

Ce code est certainement à améliorer mais cela fonctionne
Merçi au fil, je vais maintenant m'attaquer au transfert vers fiches de stock.

Bien à vous Macjade62