Alimentation d'une cellule par concaténation

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Pour tester mon dev Java, j'ai besoin d'un fichier d'entrée dont la saisie sera faite par différents users. Je suis entrain de faciliter la saisie de l'utilisateur dans ce fichier. En l'occurence, je souhaite remplir toute la colonne B par concaténation des cellules en colonnes A et E.
(plus précisément je concatène: colonneA_NumAleatoireNumAleatoireColonneE)

J'ai essayé de faire ça en VB pour que la cellule se remplisse par double click. Ca fonctionne comme je le souhaite mais parfois tout plante et je suis obligée de fermer le .xls par CTRL+ALT+SUPPR.

Pourriez-vous me dire ce qui ne va pas trop dans mon code svp?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'permet de remplir automatiquement la colone B idndoc par concaténation de l'idncaisse_dateDuJour_numAlea_NumPDF
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim NumLigne, i, NbLigne As Integer
Randomize
NumLigne = 2 'on commence à la 2ème ligne pour ne pas écraser la ligne de titre
NbLigne = WorksheetFunction.CountA(Range("A:A")) 'compte le nb de cellules non vides dans la 1er colonne
 
    If Not Application.Intersect(Target, Range("B2:B10000")) Is Nothing Then
        'si idncaisse n'est non vide OU refAttributaire est non vide alors
             Do While (NumLigne <= NbLigne)
 
                If ((IsEmpty(Cells(NumLigne, 1)) Or IsEmpty(Cells(NumLigne, 5))) And NumLigne <= NbLigne) Then
                Else
                ' l'idndoc généré est construit de la façon suivante: idncaisse_numAleaNumAlea_refAttrib
                    Cells(NumLigne, 2) = Cells(NumLigne, 1) & "_" & Int(Rnd * 100) & Int(Rnd * 100) & Cells(NumLigne, 5)  'concatène la 1ere et la dernière colonne
                    NumLigne = NumLigne + 1
 
                End If
            Loop
    End If
End Sub

Merci pour vos remarques!

Bonjour,

tu fais:

Code:

(IsEmpty(Cells(NumLigne, 1)) Or IsEmpty(Cells(NumLigne, 5)

or si IsEmpty(Cells(NumLigne, 1)=true et IsEmpty(Cells(NumLigne, 5)=false
ta condition est remplie!
tu ne peux pas ressaigner une valeur par null. je te suggère:
Code:

1 2 3 4 5 6 7 If ((Trim("" & Cells(NumLigne, 1)) <> "" Or Trim("" & Cells(NumLigne, 5)) <> "") And NumLigne <= NbLigne) Then Else ' l'idndoc généré est construit de la façon suivante: idncaisse_numAleaNumAlea_refAttrib Cells(NumLigne, 2) = Trim("" & Cells(NumLigne, 1)) & "_" & Int(Rnd * 100) & Int(Rnd * 100) & Trim("" & Cells(NumLigne, 5)) 'concatène la 1ere et la dernière colonne NumLigne = NumLigne + 1 End If

30/08/2013, 10h21
EngueEngue

Pourquoi tu ne le fais pas tout simplement par formule ?

Code:

=si(et(A1<>"";E1<>"");A1 & "_" & ent(alea()*100) & ent(alea()*100) & E1;"")

Sinon ton code va boucler à l'infini si l'une de tes cases intermédiaires est vide... Numligne<Nbligne mais tes cases sont vides alors on ne rajoute pas 1 et on reteste...
30/08/2013, 10h58
Morji2810

Merci pour vos retours et votre réactivité!

Par contre EngueEngue, je ne comprends trop ce que tu me proposes...

Soit tu arranges ton code!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim NumLigne, i, NbLigne As Integer
Randomize
NumLigne = 2 'on commence à la 2ème ligne pour ne pas écraser la ligne de titre
NbLigne = WorksheetFunction.CountA(Range("A:A")) 'compte le nb de cellules non vides dans la 1er colonne
 
    If Not Application.Intersect(Target, Range("B2:B10000")) Is Nothing Then
        'si idncaisse n'est non vide OU refAttributaire est non vide alors
             Do While (NumLigne <= NbLigne)
 
                If ((IsEmpty(Cells(NumLigne, 1)) Or IsEmpty(Cells(NumLigne, 5))) And NumLigne <= NbLigne) Then
NumLigne = NumLigne + 1
                Else
                ' l'idndoc généré est construit de la façon suivante: idncaisse_numAleaNumAlea_refAttrib
                    Cells(NumLigne, 2) = Cells(NumLigne, 1) & "_" & Int(Rnd * 100) & Int(Rnd * 100) & Cells(NumLigne, 5)  'concatène la 1ere et la dernière colonne
                    NumLigne = NumLigne + 1
 
                End If
            Loop
    End If
End Sub

Soit tu le fais en formule :

Code:

=si(et(A1<>"";E1<>"");A1 & "_" & ent(alea()*100) & ent(alea()*100) & E1;"")

Voici mon code maintenant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'permet de remplir automatiquement la colone B idndoc par concaténation de l'idncaisse_dateDuJour_numAlea_NumPDF
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim NumLigne, i, NbLigne As Integer
Randomize
NumLigne = 2 'on commence à la 2ème ligne pour ne pas écraser la ligne de titre
NbLigne = WorksheetFunction.CountA(Range("A:A")) 'compte le nb de cellules non vides dans la 1er colonne

    If Not Application.Intersect(Target, Range("B2:B10000")) Is Nothing Then
        'si idncaisse n'est non vide OU refAttributaire est non vide alors
             Do While (NumLigne <= NbLigne)
             
                If ((IsEmpty(Cells(NumLigne, 1)) Or IsEmpty(Cells(NumLigne, 5))) And NumLigne <= NbLigne) Then
                NumLigne = NumLigne + 1
                Else
                ' l'idndoc généré est construit de la façon suivante: idncaisse_numAleaNumAlea_refAttrib
                    Cells(NumLigne, 2) = Cells(NumLigne, 1) & "_" & Int(Rnd * 100) & Int(Rnd * 100) & Cells(NumLigne, 5)  'concatène la 1ere et la dernière colonne
                    NumLigne = NumLigne + 1
                    
                End If
            Loop
    End If
End Sub

Avec apparement une erreur où je compte le nb de cellule non vide en colonne A.
A savoir que pour toutes les cellules de ma colonne A, j'ai une liste déroulante pour facilité la saisie utilisateur. Est-ce que le bug peut venir de la présente d'une liste déroulante ??

30/08/2013, 11h33
EngueEngue

Un peu moins primitif:

NbLigne As Long Si tu as plus de 32767 lignes, merci

Code:

NbLigne=.range("A" & rows.count).end(xlup).row
30/08/2013, 11h40
SfJ5Rpw8

Citation:

Envoyé par Morji2810

..
Avec apparement une erreur où je compte le nb de cellule non vide en colonne A.
..

comment ce manifeste cette erreur ?
30/08/2013, 13h11
Marc-L

Bonjour.
NL& = Application.CountA(Columns(1)) …
30/08/2013, 16h52
Morji2810

Effectivement, cela fonctionne maintenant et ça a à l'air de ne plus bugger quand une de mes deux colonnes est vide.

Par contre, ce qui me gène (et ce dans un souci de "propreté" du traitement), c'est que l'ensemble de mes cellules de la colonne est initialement rempli par une liste déroulante, plus précisément apr le titre de ma liste déroulante.
Or, pour remplir ma colonne B, je vérifie que les colonnes A et E ne sont pas vide.
En l'occurence ici, ma colonne A ne sera donc jamais vide étant donné que sa valeur initiale est le titre de ma liste déroulante.
(qui se présente comme suit:
CodeCaisse
123456
123457
123458
...ect)

Quel test je peux mettre dans le if pour dire si la cellule est différente de CodeCaisse??

En fait, comment comparer une cellule à une varaible de type String initialisée au préalable par "CodeCaisse" ?

par avance, merci
30/08/2013, 17h00
SfJ5Rpw8

Montre nous comment tu compare 2 chaines habituellement ..?

Je sais le faire en Java, ici en VBA j'ai fait

Code:

titreLD <> Cells(NumLigne, 1).Value)

avec titreLD initialisée au préaalble

Code:

titreLD = "CodeCaisse"

mais ça ne fonctionne pas

Voici l'ensemble de mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'permet de remplir automatiquement la colone B idndoc par concaténation de l'idncaisse_dateDuJour_numAlea_NumPDF
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim i As Integer
Dim NumLigne, NbLigne As Long
Dim titreLD As String
 
titreLD = "CodeCaisse"
Randomize
NumLigne = 2 'on commence à la 2ème ligne pour ne pas écraser la ligne de titre
NbLigne = WorksheetFunction.CountA(Range("A:A")) 'compte le nb de cellules non vides dans la 1er colonne
 
    If Not Application.Intersect(Target, Range("B2:B100")) Is Nothing Then
        'si idncaisse n'est non vide OU refAttributaire est non vide alors
             Do While (NumLigne <= NbLigne)
 
                If ((IsEmpty(Cells(NumLigne, 1)) Or IsEmpty(Cells(NumLigne, 5))) And NumLigne <= NbLigne And titreLD Like Cells(NumLigne, 1).Value) Then
                    NumLigne = NumLigne + 1
                Else
                    ' l'idndoc généré est construit de la façon suivante: idncaisse_numAleaNumAlea_refAttrib
                    Cells(NumLigne, 2) = Cells(NumLigne, 1) & "_" & Int(Rnd * 100) & Int(Rnd * 100) & Cells(NumLigne, 5)  'concatène la 1ere et la dernière colonne
                    NumLigne = NumLigne + 1
                End If
            Loop
    End If
End Sub

Je souhaite faire une vérif sur la colonne A:
si cells(numLigne,1) = "CodeCaisse" alors rien sinon je fais mon traitement (ie ma concaténation

Mais ça ne fonctionne pas

30/08/2013, 17h24
SfJ5Rpw8

Je ne retrouve pas ce test dans ton code ..? il est remplacé par un like ?

de plus ce like est aussi conditionné par d'autre condition via l'opérateur And ... est tu sur de ces conditions ?
30/08/2013, 17h33
Morji2810

En fait, je souhaite vérifier :
si la colonne A est égale à "CodeCaisse" ET la colonne E est vide ET le numéro de ligne traité est supérieure au nb de ligne non vide
alors j'incrémente de 1 le numéro de ligne traité
sinon je lance mon traitement (à savoir ma concaténation).

et avec le code que j'ai fait, il ignore complètement la vérification faite sur la colonne A. Est-ce que pourtant je compare correctement ces 2 chaines de caractères ??
30/08/2013, 17h42
SfJ5Rpw8

Citation:

Envoyé par bbil

Je ne retrouve pas ce test dans ton code ..? il est remplacé par un like ?

pourquoi as tu remplacé le signe "=" par like .?
30/08/2013, 17h43
Morji2810

parce que j'ai vu sur internet que l'on comparait 2 String par Like
30/08/2013, 17h45
SfJ5Rpw8

ok , mais un simple test d'égalité avec le signe égal suffit dans ton cas ...

n'as tu pas de problème de minuscule/majuscule ?
30/08/2013, 17h50
Morji2810

c'est à dire min/maj ?

Je soupçonne que la valeur de Cells(NumLigne,1).Value n'est pas égale à ce comprend vraiment la cellule à savoir "CodeCaisse". Ce serait pour cette raison que la condition n'est pas vérifiée.

Je souhaiterai faire tourner ce bout de code pas à pas pour pointer vérifier quelle est la valeur prise par Cells(NumLigne,1).Value mais ça ne fonctionne pas...d'ailleurs je ne peux même aps teser mon code dans VBA, je suis obligée de le tester sur le fichier excel en lui même, ça m'aide pas trop pour avancer...
30/08/2013, 18h04
SfJ5Rpw8

rajoute un point d'arrêt dans ton code en double cliquant sur la marge à gauche, ou en rajoutant une instruction Stop, F8 te permettra ensuite d'avance pas à pas et tu pourra voir la valeur de tes variables en passant le pointeur de la souris dessus ...

pour le débogage c'est en gros le même fonctionnement qu'en VB6 voir :

http://darkvader.developpez.com/tuto...isual-basic-6/
30/08/2013, 18h15
Morji2810

Je ne peux le faire car mon code n'est pas dans un module mais est associé à ma feuille Feuil1. Et mon sub s'appelle

Code:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

il ne comprend pas que c'est une macro...

comment puis-je faire du pas à pas sur du code associé à Feuil1 ??

Voir 40 message(s) de cette discussion en une page