macro VBA Excel - un code à évoluer

Version imprimable

25/03/2014, 10h05
coolmek

macro VBA Excel - un code à évoluer

Bonjour,

j'ai un code qui copier des colonnes de la feuille 1 vers la feuille2 sous condition:

Je vous l'adapter à mon fichier excel et je ne sais pas comment :

- la colonne ou se trouve "oui" (If LCase(datas(lig, 16)) = "oui") est "BB"
- L'identifiant des lignes de la feuille1 se trouve a la colonne BD
- L'identifiant des lignes de la feuille1 se trouve a la colonne A
- les colonnes à copier de la feuille1 sont : K, L, M et N vers les colonnes H, I, J, K de la feuille2

Sub maj()
Dim derlig As Long, lig As Long, col As Long, datas As Variant
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range
Dim cpt1 As Long, cpt2 As Long, inconnu As Long, msg As String
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")

'recup datas
With sh1
derlig = .Cells(Rows.Count, "A").End(xlUp).Row
datas = .[A2].Resize(derlig - 1, 16)
End With

' traitement
Application.ScreenUpdating = False
For lig = 1 To UBound(datas)
If LCase(datas(lig, 16)) = "oui" Then
cpt1 = cpt1 + 1
Set c = sh2.[A:A].Find(datas(lig, 1), LookIn:=xlValues, Lookat:=xlWhole)
If c Is Nothing Then
inconnu = inconnu + 1
Else
sh2.Cells(c.Row, 8) = datas(lig, 11)
sh2.Cells(c.Row, 9) = datas(lig, 12)
sh2.Cells(c.Row, 10) = datas(lig, 13)
sh2.Cells(c.Row, 11) = datas(lig, 14)
sh2.Cells(c.Row, 14) = Now
End If
Else
cpt2 = cpt2 + 1
End If
Next lig
msg = "Oui : " & vbTab & cpt1 & vbLf
msg = msg & "Autres : " & vbTab & cpt2 & vbLf & vbLf
msg = msg & "Références 'Oui' non trouvées : " & inconnu
MsgBox msg
End Sub

Merci de votre aide.
25/03/2014, 10h44
casefayere
Bonjour,
que dire ?
1 - apprends à mettre des balises sur ton code, tu le sélectionnes et cliques sur "#"
2 - quand tu écris

Citation:

la colonne ou se trouve "oui" (If LCase(datas(lig, 16)) = "oui") est "BB"

d'après ton code ça ne serait pas 16 mais 54 ou je ne comprends rien (ce qui est possible)
3 - donc à revoir cette partie certainement :
Code:

1 2 3 4 5 6 7 .... sh2.Cells(c.Row, 8) = datas(lig, 11) sh2.Cells(c.Row, 9) = datas(lig, 12) sh2.Cells(c.Row, 10) = datas(lig, 13) sh2.Cells(c.Row, 11) = datas(lig, 14) sh2.Cells(c.Row, 14) = Now ....
4 - j'ai une idée mais envoies un fichier bidon car au vu de tes explications.........

bon courage
25/03/2014, 10h50
bboy-eazy
bonjour,

l'index des colonnes se trouve dans cette partie:
Code:

1 2 sh2.Cells(c.Row, 8) = datas(lig, 11) sh2.Cells(c.Row, 9) = datas(lig, 12)
le chiffre représente la colonne, on peut aussi mettre à la place "A" par exemple ici on a:
Code:

1 2 sh2.Cells(c.Row, 8) = datas(lig, 11) sh2.Cells(c.Row, 9) = datas(lig, 12)
ou
Code:

1 2 sh2.Cells(c.Row, "H") = datas(lig, "K") sh2.Cells(c.Row, "I") = datas(lig, "L")
Il suffit d'adapter selon vos nouvelles colonnes.

dans le code ci dessus, sh2 a été définit comme

Code:

Set sh2 = Sheets("Feuil2")

du coup le code dit :

Code:

sh2.Cells(c.Row, "H") = datas(lig, "K") 'la celulle de la feuille 2 en ligne c.row (variant selon la valeur de C trouvée dans le find) en colonne H (= colonne 8) est égal la la valeur de la feuille datas en ligne "lig" (variant) colonne K (= colonne 11)

donc par exemple le numéro de la colonne de cette partie du code va changer:

la colonne ou se trouve "oui" (If LCase(datas(lig, 16)) = "oui") est "BB"

Code:

(If LCase(datas(lig, "BB")) = "oui") 'ou numéro de colonne BB
25/03/2014, 11h10
coolmek
Citation:
Envoyé par casefayere

Bonjour,
que dire ?
1 - apprends à mettre des balises sur ton code, tu le sélectionnes et cliques sur "#"
2 - quand tu écris d'après ton code ça ne serait pas 16 mais 54 ou je ne comprends rien (ce qui est possible)
3 - donc à revoir cette partie certainement :

Code:

1 2 3 4 5 6 7 .... sh2.Cells(c.Row, 8) = datas(lig, 11) sh2.Cells(c.Row, 9) = datas(lig, 12) sh2.Cells(c.Row, 10) = datas(lig, 13) sh2.Cells(c.Row, 11) = datas(lig, 14) sh2.Cells(c.Row, 14) = Now ....

4 - j'ai une idée mais envoies un fichier bidon car au vu de tes explications.........

bon courage
Merci pour ta réponse,

ci-joint un exemple du fichier excel.
25/03/2014, 11h42
coolmek
Citation:
Envoyé par bboy-eazy

bonjour,

l'index des colonnes se trouve dans cette partie:

Code:

1 2 sh2.Cells(c.Row, 8) = datas(lig, 11) sh2.Cells(c.Row, 9) = datas(lig, 12)

le chiffre représente la colonne, on peut aussi mettre à la place "A" par exemple ici on a:

Code:

1 2 sh2.Cells(c.Row, 8) = datas(lig, 11) sh2.Cells(c.Row, 9) = datas(lig, 12)

ou

Code:

1 2 sh2.Cells(c.Row, "H") = datas(lig, "K") sh2.Cells(c.Row, "I") = datas(lig, "L")

Il suffit d'adapter selon vos nouvelles colonnes.

dans le code ci dessus, sh2 a été définit comme

Code:

Set sh2 = Sheets("Feuil2")

du coup le code dit :

Code:

sh2.Cells(c.Row, "H") = datas(lig, "K") 'la celulle de la feuille 2 en ligne c.row (variant selon la valeur de C trouvée dans le find) en colonne H (= colonne 8) est égal la la valeur de la feuille datas en ligne "lig" (variant) colonne K (= colonne 11)

donc par exemple le numéro de la colonne de cette partie du code va changer:

la colonne ou se trouve "oui" (If LCase(datas(lig, 16)) = "oui") est "BB"

Code:

(If LCase(datas(lig, "BB")) = "oui") 'ou numéro de colonne BB
Merci pour ta réponse,

quand je mis par exp : If LCase(datas(lig, 16)) = "oui" ou If LCase(datas(lig, 16)) = 54 ), il ne me ramène rien.

sinon cette partie de code sert à quoi :

With sh1
derlig = .Cells(Rows.Count, "A").End(xlUp).Row
datas = .[A2].Resize(derlig - 1, 20)
End With

Je te remercie d'avance .

Code:

1 2 3 4 With sh1 'sur la feuille1 derlig = .Cells(Rows.Count, "A").End(xlUp).Row ' donne une valeur à derlig comme étant le n° de la dernière ligne en feuill1 sur la colonne A datas = .[A2].Resize(derlig - 1, 20) 'permet de redimensionner la plage A2 d'une ligne en moins et de 20 colonne en plus je crois mais je maitrise pas très bien Resize End With
sinon c'est normal car c'est pas au = qu'il faut mettre 54 mais à la place du numéro de colonne car n° 54 est égal à la colonne BB

Code:

If LCase(datas(lig, 16)) = "oui" ou If LCase(datas(lig, 16)) = 54 )

est faux il faut mettre:

Code:

If LCase(datas(lig, 54)) = "oui"

25/03/2014, 14h08
casefayere

Je viens de revenir,

Merci bboy-eazy

Citation:

quand je mis par exp : If LCase(datas(lig, 16)) = "oui" ou If LCase(datas(lig, 16)) = 54 ), il ne me ramène rien.

j'ai l'impression qu'il y a du boulot pour t'expliquer, dès que je peux, je regarde ton fichier

Citation:
Envoyé par bboy-eazy
Code:

1 2 3 4 With sh1 'sur la feuille1 derlig = .Cells(Rows.Count, "A").End(xlUp).Row ' donne une valeur à derlig comme étant le n° de la dernière ligne en feuill1 sur la colonne A datas = .[A2].Resize(derlig - 1, 20) 'permet de redimensionner la plage A2 d'une ligne en moins et de 20 colonne en plus je crois mais je maitrise pas très bien Resize End With
sinon c'est normal car c'est pas au = qu'il faut mettre 54 mais à la place du numéro de colonne car n° 54 est égal à la colonne BB

Code:

If LCase(datas(lig, 16)) = "oui" ou If LCase(datas(lig, 16)) = 54 )

est faux il faut mettre:

Code:

If LCase(datas(lig, 54)) = "oui"
Merci pour ta réponse,

J'ai mis le fichier excel en haut, est ce que tu peux jeter un coup d'oeil stp ?

Merci d'avance

Citation:
Envoyé par bboy-eazy
Code:

1 2 3 4 With sh1 'sur la feuille1 derlig = .Cells(Rows.Count, "A").End(xlUp).Row ' donne une valeur à derlig comme étant le n° de la dernière ligne en feuill1 sur la colonne A datas = .[A2].Resize(derlig - 1, 20) 'permet de redimensionner la plage A2 d'une ligne en moins et de 20 colonne en plus je crois mais je maitrise pas très bien Resize End With
sinon c'est normal car c'est pas au = qu'il faut mettre 54 mais à la place du numéro de colonne car n° 54 est égal à la colonne BB

Code:

If LCase(datas(lig, 16)) = "oui" ou If LCase(datas(lig, 16)) = 54 )

est faux il faut mettre:

Code:

If LCase(datas(lig, 54)) = "oui"
et ce bout de code :

Set c = sh2.[A:A].Find(datas(lig, 1), LookIn:=xlValues, Lookat:=xlWhole)

il fait quoi ?

Merci

27/03/2014, 07h46
bboy-eazy

il définit C (nombre) comme étant la valeur trouvé de datas(lig, 1) ! c'est un find enfait qui cherche une occurence de la valeur de datas(lig, 1)