mise à jour

abd.gh · 18 Juillet 2011

bonjour

mon objectif est de faire une mise à jour,

j'ai un petit problème avec mon code,

si sheets("1").range("A" & compteur & ":H" & compteur) n’existe pas dans la
sheets("2").range("A" & partout & ":H" & partout) alors
copie sheets("1").range("A" & compteur & ":H" & compteur) dans
sheets("2").range("A" & aLAfin & ":H" & aLAfin)

aLafin=[2!A:A].Find("").Row
et comment définir ce "partout" pour q'il puisse, à chaque boucle, balayer toute la page(tous les lignes) !

merci pour toute aide

JCGL · 18 Juillet 2011

Re : mise à jour

Bonjour à tous,

Ceci n'est pas un code mais une traduction littérale d'une tentative de code... (Sheets(1), que vaut "compteur", Find("")...)

Merci de déposer ton ficher...

A + à tous

abd.gh · 18 Juillet 2011

Re : mise à jour

Bonjour JCGL
si je m'exprime comme cel ac'est plus comprehensible ? :
partout: je ne sais pas comment al définir, son but et de balayer toute la page 2 pour vérifier l’existence ou pas de range(A8:H8).value

je dois traduire cette condition en vba ::::::::::::::::::::
if sheets("1").range("A8:H8").value n’existe pas dans la sheets("2").range("A" & partout & ":H" & partout) then

sinon je preparerai un tableau explicative

merci

JCGL · 18 Juillet 2011

Re : mise à jour

Bonjour à tous,

Nous voulons bien un fichier...

A++
A + à tous

abd.gh · 18 Juillet 2011

Re : mise à jour

Re,
en PJ 2 tableaux dans 2 pages,
le premiers : je le remplie au fur et à mesure,
le deuxième doit se remplir tous seul à l'ouverture du fichier

merciii

mise à jour

abd.gh

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

abd.gh

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

abd.gh

XLDnaute Nouveau

Pièces jointes

Discussions similaires