modifier numérotation

[skalex]

bonjour
j'ai une petite modif a réalise sur le fichier joint
quand j'ai dans la cellulle ='D:\personal\alexandre.roger\desktop\dispo\nouvelle version\fichier à copier chaque semaineal\[Dispo_CP_lundi.xls]lundi matin'!$B$33
je voudrais 36 à la place du 33
les cellulles vont par 3 : 33 34 35
puis l'adresse change avec a nouveau 33 34 35.....
je voudrais ajouté 3 a chaque valeur en gros.
j'ai commencé en manuel, mais c'est très long (les 100 première lignes!)
si vous avez une astuce
merci
alex

c'est un extrait du doc, il se repète plusieur fois de la meme manière avec la case "autre " qui change

 

[hoerwind]

Re : modifier numérotation

Bonjour,

Ne serait-il pas plus simple de rapatrier les trois valeurs (... B33, ... B34, ... B35) dans trois cellules, par exemple H1, H2 et H3 (ou autre part dans la feuille), puis de saisir en D2 la formule :
=INDIRECT("H"&MOD(LIGNE()-2;3)+1)
et de la copier vers le bas

 

[pierrejean]

Re : modifier numérotation

Bonjour Skalex

Re Salut Hoerwind

Si la proposition de mon ami Hoerwind ne te convient pas tu peux essayer la macro suivante

Sub modif()
For n = 2 To Range("A65536").End(xlUp).Row
 Range("D" & n).Formula = Left(Range("D" & n).Formula, Len(Range("D" & n).Formula) - 2) & CInt(Right(Range("D" & n).Formula, 2)) + 3
 Range("F" & n).Formula = Left(Range("F" & n).Formula, Len(Range("F" & n).Formula) - 2) & CInt(Right(Range("F" & n).Formula, 2)) + 3
Next n
End Sub

Notes
Pas testé puisque les formules font reference a un fichier absent chez moi
Suppose par ailleurs que j'aie bien compris ce que tu souhaites

 

[mth]

Re : modifier numérotation

Bonjour à tous 🙂

En suivant l'idée de Hoerwind, avec les reprères renseignés dans la colonne d'à coté (si non dur dur ) :

=INDIRECT("'[Dispo_CP_lundi.xls]"&STXT(A2;2;15)&" "&B2&"'!"&H2&I2)

Remarque: Avec INDIRECT, il faut que les classeurs en question soient ouverts

@ +

mth

Edit: 🙂 Bise Pierrejean 🙂

 

[mth]

Re : modifier numérotation

re,

Comme je réfléchis doucement ....😱
Tant qu'on y est à paramétrer, même idée avec le nom du fichier:

=INDIRECT("'[Dispo_CP_"&STXT(A2;2;15)&".xls]"&STXT(A2;2;15)&" "&B2&"'!"&H2&I2)

@+

 

[skalex]

Re : modifier numérotation

merci pour vos réponses
mais mon fichier est bien plus compliqué que l'extrait et rien ne fonctionne!
je vais perdre 2 h a tout faire mais je ne vois que ca!
merci
alex

 

[pierrejean]

Re : modifier numérotation

Re

Que se passe-t-il a l'execution de la macro ?
Nota: J'ai oublié de dire que le fichier auquel il est fait reference dans les formules doit etre ouvert

 

[mth]

Re : modifier numérotation

re,

Tu veux dire par là qu'on a tous passé du temps à chercher une solution pour un problème qui n'existait pas sur la base d'un fichier bidon qui n'a rien à voir avec le vrai ?

Personne ici ne sachant quoi faire de son temps, c'est rudement sympa de penser à nous pour nous occuper 🙂

J'attends avec impatience les prochaines questions !

Bon après-midi à tous 🙂

(skalex, je ne suis pas fâchée, mais quand même, comme on dit gentiment dans le midi avé l'assang: c'est uneu couillonnadeu ça 🙂 )

 

[skalex]

Re : modifier numérotation

non , ce n'est pas bidon, c'est juste que ca ne marche pas, ca ne m'enchante pas non plus de devoir tout modifier à la main! mais bon...
le fichier est le meme, mais le mien fait 2000 lignes et était trop gros pour être chargé sur le forum.
je vais réessayé la macro avec le fichie ouvert, mais il me semble que tout a l'heure il l'était!

 

[pierrejean]

Re : modifier numérotation

Re

1) le nombre de lignes n'est pas en cause
2) 'ca ne marche pas' est un peu vague non ?
en cas de macro on se retrouve generalement en debug avec une ligne en jaune et un message donnant le type d'erreur