XL 2010 [Résolu] Modifier la boucle par un tableau

[Lone-wolf]

Bonjour à toutes et à tous

J'aimerais modifier cette boucle par un tableau Scripting.Dictonary, mais je ne sais pas m'y prendre. Merci d'avance pour votre aide

x = 0
With ShB
For i = 7 To derlig
x = x + 1
.Range("a" & i) = Left(.Range("b" & i), 2) & Left(.Range("c" & i), 2) & "-000" & x
Next i
End With

 

[laetitia90]

salut loup tout seul

avec ton exemple passer par un tablo je peus le comprendre mais le dico dans ce cas pourquoi ???

mais un fichier exemple pour faire plus " clair"

regarderai cet aprés midi si pas de reponse moi partir

ps: x peut être i dans ton exemple

 

[Lone-wolf]

Bonjour laetitia

Ravi de te relire

C'est vrai, pas besoin du dictionnaire; mais la boucle est trop lente.

 

[ChTi160]

Bonjour Lone-wolf
Bonjour le Fil , le Forum
pas évident de travailler sur ton fichier car il y a des Liaisons etc et l'on obtient pas les données sous leur bonne forme .
pourrais tu mettre un exemple du format de tes Données en Colonnes B et C .
c'est bien en feuille "JOURNAL STOCKS" ? car ActiveSheet dans la procédure .
Merci par avance
Bonne Journée
Jean marie

 

[Rouge]

Bonjour
Comme ceci par exemple
Sub test()
Dim Derlig As Long
Application.ScreenUpdating = False
Derlig = [b100000].End(xlUp).Row
Range(Cells(7, "A"), Cells(Derlig, "A")).FormulaR1C1 = "=LEFT(RC[1],2)&LEFT(RC[2],2)&""-000"" &ROW()"
Range(Cells(7, "A"), Cells(Derlig, "A")).Value = Range(Cells(7, "A"), Cells(Derlig, "A")).Value
End Sub

Cdlt

 

[Lone-wolf]

Bonjour Jean Marie , Rouge

@Rouge: ta macro fonctionne très bien, merci beaucoup.

@jean Marie: j'ai recopier le tableau dans un nouveau classeur, en PJ.

 

[ChTi160]

Re
j'ai vu que c'est Résolu !
Enfin presque !
Heureusement car le fichier ne correspond pas aux données à traitées Lol
Bonne fin de journée
Amicalement
jean marie

 

[Si...]

Bon_jour

Résolu que tu dis mais fais-tu la distinction entre les 2 types de numérotation ?

Numérotation intégrale : avec un tableau (table) qui adapte les formats, formules … en cas d'ajout, de suppression de lignes.

Sub test()
  [TBo[code]].FormulaR1C1 = "=LEFT(RC[1],2)&LEFT(RC[2],2)&""-000"" &ROW()" & -[Tbo].Row + 1
End Sub

Nota : normalement la macro n'est utile que si la colonne code est remplie partiellement.

Numérotation par thème : je garde le tableau bien que la macro doit-être relancée à chaque ajout, suppression de lignes mais, ici, j'utilise le dico *.

Private Sub CommandButton2_Click()
  Application.ScreenUpdating = 0
  [Tbo[code]] = ""
  Set N° = CreateObject("Scripting.dictionary")
  For Each C In [Tbo[Quoi]]: N°(C.Value) = "": Next
  a = N°.keys
  For n = 0 To N°.Count - 1
  [Tbo].AutoFilter 2, a(n)
  x = 0
  For Each R In [Tbo[Quoi]].SpecialCells(12)
  x = x + 1
  R(1, 0) = Left(R, 2) & Left(R(1, 2), 2) & "-000" & x
  Next
  [Tbo].AutoFilter
  Next
End Sub

* d'aucun(e) pourrait le coupler avec un Array (tableau VBA)

 

[Staple1600]

Bonsoir le fil, le forum

Juste pour le plaisir de croiser Si...
(et pour l'avoir plus courte )

Sub teste()
[TBo[code]].Formula = "=left(B2,2)&left(C2,2)&""-000""&row()" & -[Tbo].Row + 1
End Sub

NB1: Je croise évidemment le loup, mon jumeau de prénom et leti avec plaisir, mais je vous ai pas inclus dans la présente taquinerie

NB2: Je croise aussi Rouge (ni avec plaisir ni avec déplaisir) au motif que je ne le "connais" point.

 

[Lone-wolf]

Bonsoir Jean marie , Si... , Staple

@Chti: je n'ai jamais dis que c'était résolu , j'ai juste testé la macro de Rouge; j'attendais de voir la tienne.

@Si... et @Staple: merci pour vos solutions, il y a l'embarra du choix LOL!

 

[Lone-wolf]

Bonsoir à tous

Malgré que le sujet soit clôt, j'ai pris exemple sur la formule comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As Range

Application.EnableEvents = False

Set tbl = Range("a7:a" & Range("a" & Rows.Count).End(xlUp).Row)
tbl.FormulaLocal = "=SI(C7<>"""";GAUCHE(B7;2)&GAUCHE(C7;2)&""-000"" &LIGNE()-6;"""")"
tbl.Value = tbl.Value

Application.EnableEvents = True
End Sub

 

[ChTi160]

Bonjour
Bonjour le Fil ,le Forum
une approche de ce que j'ai cru comprendre Lol
je ne sais pas (pour le format) le nombre de lignes par Référence .
Bonne Journée
Jean marie

 

[ChTi160]

Re
la Version en Feuil1
Bonne journée
Jean marie

 

[Lone-wolf]

Bonjour Jean Marie , le Forum

C'est Nickel! . Ce qui me laisse penser que tu suis l'une de mes conversations

Très bon dimanche

 

[ChTi160]

Re
une version avec Code Commenté ;
et Boucle modifiées
Bonne Journée
J'avais pas vu que c'était Résolu ! Mais Bon ! Lol
Jean marie