Code VBA dans une plage.

[JJ1]

Bonjour et bonne année à vous tous,

J'espère que le réveil n'est pas trop dur et que les neurones sont bien en place......sinon un Alka ?

Je souhaiterais un code VBA d'extraction (pas dentaire !! ) concaténée (avec - ou ; ) comme indiqué dans le fichier exemple joint et commenté.
(les 1 représentent des nombres)

merci de votre aide.

Bonne journée 2014!

 

[Lone-wolf]

Re : Code VBA dans une plage.

Bonjour JJ1 et bonne année

Regarde si cette macro peux te convenir.

Sub test()
Dim ligne As Long, lig As Integer, x As Integer
With Feuil1
lig = .Range("a65536").End(xlUp).Row
ligne = .Range("z2").Value
If .Range("z2").Value = "" Then Exit Sub
For x = 1 To 9
If .Cells(ligne, x).Value <> 1 Then
.Cells(ligne, 22).Value = .Cells(ligne, 22).Value & "-" & .Cells(ligne, x).Value
End If
Next x
.Cells(ligne, 22).Value = Mid(.Cells(ligne, 22), 2)  'Suppression du trait au début des valeurs.

If Left(.Cells(ligne, 22), 1) <> 4 Then
.Cells(ligne, 21).Value = .Cells(ligne, 22).Value
.Cells(ligne, 22).ClearContents
End If
End With
End Sub

'Et dans la feuille 1 (sans le bouton) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("z2")) Is Nothing Then Application.Goto Range("z2")
Application.EnableEvents = False
If Range("z2").Value <> "" Then
Call Concatener
Else
Exit Sub
End If
Application.EnableEvents = True
End Sub

L'inconvénient, c'est qu'il faut renseigner la ligne en Z2.


A+ 😎

 

[ROGER2327]

Re : Code VBA dans une plage.

Bonjour à tous.

Un essai (pour voir si j'ai compris).​

Bonne journée.


ℝOGER2327
#7093

Jeudi 5 Décervelage 141 (Saints Giron, Pile et Cotice, palotins - fête Suprême Quarte)
13 Nivôse An CCXXII, 5,9604h - ardoise
2014-W01-4T14:18:18Z

 

[JJ1]

Re : Code VBA dans une plage.

Bonjour Lone Wolf, Roger et bonne année 2014 .

J'ai regardé ton code Roger (bravo pour ce vba !) j'ai réussi a implanter sous 2007 ( car plus de colonnes que 2003) en cochant le RunTime et modifié la plage (A-T 600 lignes en mettant 5 comme recherche).

Le code "mouline" .....

Est-il possible de savoir où il en est (en % par exemple) , s'il "mouline" bien car de temps en temps "Excel ne répond pas " s'affiche en haut puis ça repart ????? ....très bizarre ?

Merci à toi.

ps: As-tu mis ton calendrier à jour? (je plaisante !)
Bonne soirée