salut,
bon alors moi je vois que 3 colonnes dans ton exemple, mais bon ça change pas grandchose.
t'as pas essayé avec des formules "SI" imbriquées ? =si(cond1,vrai,si(cond2,vrai2,si( etc etc ?
au vu de ce que tu veux faire, ça pourrait faire un truc du style (c'est de tête alors tu dois fignoler) :
sub compare()
dim lig as integer
dim lig2 as integer
lig=0
lig2=1
do until sheets("feuil1").range("a" & lig) =""
if sheets("feuil1").range("c" & lig).value = sheets("feuil1").range("c" & lig + 1).value then
if sheets("feuil1").range("b" & lig).value + 1 = sheets("feuil1").range("a2") then
lig2=lig2+1
sheets("feuil2").range("a" & lig2).value=sheets("feuil1").range("a" & lig).value
sheets("feuil2").range("b" & lig2).value=sheets("feuil1").range("b" & lig+1).value
sheets("feuil2").range("c" & lig2).value=sheets("feuil1").range("c" & lig).value
end if
end if
lig=lig+1
loop
end sub
dernier conseil : sauvegarde ton fichier avant de lancer ton code...
voilà quoi, tu vois le principe ?
@+
-------------------------------
Réponse au message :
-------------------------------
Bonjour à vous qui me lisez,
Je souhaite faire un petit programme en VB(A) car je suis fatiguer pour tout me taper à la main.
Ce dont je dispose
soit un tableau Excel à 4 colonnes et n lignes.
La colonne A1 contient le début de ma série
La colonne B1 contient la fin de ma série
La colonne C1 contient un identifiant
Et ainsi de suite sur les n lignes suivantes.
Je souhaite comparer C1 et C2 si les données sont identiques alors comparer B1 et A2. Si B1+1=A2 alors écrire dans un fichier (ou une nouvelle feuille excel) en remplacement des données ci dessous:
A1 ne change pas
B2 à la place de B1
et C1 ne change pas.
Merci pour toute l'aide que vous pourrez m'apporter.