Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modifier numérotation

  • Initiateur de la discussion Initiateur de la discussion skalex
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

skalex

Guest
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
 

Pièces jointes

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
 
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

Code:
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
 
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 ) :

Code:
=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 🙂
 

Pièces jointes

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:

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

@+
 
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
 
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 🙂 )
 
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!
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
Réponses
13
Affichages
1 K
Ninon2019
N
A
Réponses
25
Affichages
5 K
Angelzeus
A
D
Réponses
1
Affichages
1 K
Dudesson
D
B
  • Question Question
Réponses
3
Affichages
2 K
B
K
Réponses
12
Affichages
1 K
C
Réponses
9
Affichages
3 K
Cedric_C
C
W
Réponses
9
Affichages
1 K
W
Réponses
19
Affichages
4 K
G
T
Réponses
22
Affichages
6 K
Thibault LB
T
M
Réponses
0
Affichages
2 K
MARGAR
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…