Problème de format

  • Initiateur de la discussion laurent
  • Date de début
L

laurent

Guest
Bonjour,

Mon problème est simple :
Quand on met dans 1 cellule un nombre (par ex 1) en étirant vers le bas les autres cellules de la colonne deviennent automatiquement 2; 3; 4; 5; etc ..... : ca j'y arrive
Maitenant le problème : dans ma première cellule j'ai A0001B. Ce que j'essaye de faire : trouver une combine pour que dans la deuxième colonne soit A0002B, La troisième A0003B, etc
En fait j'ai 1500 cellules à faire de ce genre (donc de A0000B à A1500B)
Comme mon fichier Excel va servir de database je ne peux pas me servir du format automatique (genre "A"####"B" pour ceux qui connaissent) ni des fonctions appliquées sur les cellules (genre B1=A1&"B" avec A1=A0001 ). Il fat que la valeure de chaque cellule soit le vrai text pas une formule.

Quelqu'un aurait-il une soluce ? Moi je trouve pas sauf si on peut faire un replace A**** par A****B mais je ne trouve pas

Merci par avance
 
A

Alain

Guest
Bonjour,



Comme je vois pas d'autre solution, juste une petite macro qui te fera çà très bien :


Sub Incrementation()
For i = 1 To 1500
Range("Debut").Offset(i - 1, 0) = "A" & Right("000" & CStr(i), 4) & "B"
Next
End Sub

A copier dans un module.

Il faut que tu nommes "Debut" la 1ère cellule de ta liste.


@+
 
L

laurent

Guest
Ok merci beaucoup,

je pense que c'est un bonne idée mais je ne connais pas du tout les macros. J'en ai créée une (appelée Incrémentation). Dans ma feuille Excel je n'ai qu'une cellule remplie (Debut).
je lance ma macro (copier coller de ton texte) et là message d'erreur
"Run-Time Error '1004'
Method 'Range' of object '_Global' failed"


C'est comme si je lisais du Chinois ....

J'ai peut être de faire oublié quelque chose (le module peut s'appeler n'importe comment ou Incrementation ???)

Autre chose , c'est une colonne que je veux remplir par une ligne.
De A1 à A1500, j'aimerais avoir A0001B à A1500B

Une petite aide ???
 
A

Alain

Guest
Rebonjour,


Autre solution, en A1 tu tapes la formule :

="A"&DROITE("000"&LIGNE();4)&"B"

que tu recopies jusqu'à la ligne 1500.

Tu fais ensuite un collage spécial des valeurs.

@+


@+
 

Pièces jointes

  • Essai1.zip
    7.1 KB · Affichages: 25
  • Essai1.zip
    7.1 KB · Affichages: 20
  • Essai1.zip
    7.1 KB · Affichages: 28

Statistiques des forums

Discussions
314 656
Messages
2 111 610
Membres
111 224
dernier inscrit
Test66