Reference

pierrejean

XLDnaute Barbatruc

• 31 Mars 2011

• #2

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 ?

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 31 Mars 2011

• #3

Re : Reference

Bonjour,

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

=A3&B3&C3&D3&E3

Cliquez pour agrandir...

, à tirer vers le bas
Et donc en F3 :

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

Cliquez pour agrandir...

, à tirer vers le bas également.

 

Vote positif 0 Vote négatif

W

wYse

Guest

• 1 Avril 2011

• #4

Re : Reference

pierrejean à dit:

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 ?

Cliquez pour agrandir...

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

Faut-il que j'upload ma macro?

 

Vote positif 0 Vote négatif

W

wYse

Guest

• 1 Avril 2011

• #5

Re : Reference

JBOBO à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

W

wYse

Guest

• 1 Avril 2011

• #6

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?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Avril 2011

• #7

Re : Reference

Re

A tester:

Code:

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

 

Vote positif 0 Vote négatif

W

wYse

Guest

• 1 Avril 2011

• #8

Re : Reference

Cela ne marche pas non plus...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Avril 2011

• #9

Re : Reference

Re

teste:

VB:

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

 

Vote positif 0 Vote négatif

W

wYse

Guest

• 1 Avril 2011

• #10

Re : Reference

Merci beaucoup, ça marche nickel =)

 

Vote positif 0 Vote négatif