Reference

[wYse]

Bonjour,

Je suis en train de créer un tableau de reference.
Mais je n'arrive pas a créer ma macro 🙁

Je vous explique, il y a plusieurs ellements dans ma reference qui comporte 10 caractères (séparés par des colonne diferentes)

les trois dernier caractères de cette reference doit s'incrémenté automatiquement. jusque là ça va... MAIS si ce n'est pas les même "valeur" (il ya des lettre dans la reference) elle ne doit pas incrémenté mais recommencer une incrémentation ou continuer l'incrémentation, si les valeurs des différentes colonnes existais déja...

Ahah vous avez rien compris?
Une image est peut etre mieux qu'un paragraphe de français mal parlé 🙂

Merci d'avance.

 

[pierrejean]

Re : Reference

Bonjour wYse

Avant d'aller plus loin petites questions:
La liste des references sera-t-elle definitive ou des saisies ulterieures seront-elles possibles ?
Si saisies ulterieures ou seront-elles faites ?

 

[JBOBO]

Re : Reference

Bonjour,

avec colonne L par ex pouvant etre masquée, on aurait en L3 :

=A3&B3&C3&D3&E3

, à tirer vers le bas
Et donc en F3 :

=TEXTE(NB.SI(L3:L$1000;L3);"000")

, à tirer vers le bas également.

 

[wYse]

Re : Reference

Bonjour wYse

Avant d'aller plus loin petites questions:
La liste des references sera-t-elle definitive ou des saisies ulterieures seront-elles possibles ?
Si saisies ulterieures ou seront-elles faites ?

elle ne sera pas définitives...elle seront faites via une macro avec le Userform.

Faut-il que j'upload ma macro?

 

[wYse]

Re : Reference

Bonjour,

avec colonne L par ex pouvant etre masquée, on aurait en L3 : , à tirer vers le bas
Et donc en F3 : , à tirer vers le bas également.

Merci beaucoup, cela marche nickel...mais serais t-il possible de l'integrer directement a ma macro sans passez par une formule?

 

[wYse]

Re : Reference

Bonjour,

Pour la premiere ligne j'ai réussi :
.Range("L4").Value.Formula = "=A4&B4&C4&D4&E4"

Mais pour la deuxième il me dit "Erreur de compilation, Attendu : fin d'instruction"
.Range("F4").Value.Formula = "=TEXTE(NB.SI(L4:L$1000;L4);"000")"


Avez vous une solution?

 

[pierrejean]

Re : Reference

Re

A tester:

.Range("F4").Value.Formulalocal = "=TEXTE(NB.SI(L4:L$1000;L4);"000")"

 

[wYse]

Re : Reference

Cela ne marche pas non plus...

Je n'arrive pas a rentré les formules dans la cellule

 

[pierrejean]

Re : Reference

Re

teste:

Sub essai()
For n = 3 To Range("A65536").End(xlUp).Row
 Columns("L").NumberFormat = "General"
 Range("L" & n).Formula = "=A" & n & "&B" & n & "&C" & n & "&D" & n & "&E" & n
 Range("F" & n).FormulaLocal = "=TEXTE(NB.SI(L" & n & ":L$1000;L" & n & ");""000"")"
Next n
End Sub

 

[wYse]

Re : Reference

Merci beaucoup, ça marche nickel =)