modification macro

[guigui76]

Bonjour, je souhaite modifier cette macro

http://www.excel-downloads.com/forum/91261-vba-excel-copier-une-colonne-en-fonction-dune-cellule.html

pourque je puisse faire une selection d'une plage de cellule au lieu de la colonne entiere.

je fais une translation par la suite.

sub cinq()
Dim celle As Range

For Each celle In Range("e4:ai4")
If celle.Value = 5 And celle.Value <> "" Then
[COLOR="Red"]celle.EntireColumn.Copy [/COLOR]'ici tu écris la cellule de destination
celle.select
End If
Next
End Sub

Je vous remercie

 

[guigui76]

Re : modification macro

J'ai fais mes modifications donc fichier general je mets la date le nom du fichier source et destination.
j'arrive bien à ouvrir les deux fichiers, mais la macro que l'indice n'appartient pas à la selection.

Sub Macro6bis()
Dim Source As Range, Desti As Range
Dim i As String
Dim x As Range
' Macro enregistrée le 27/01/2010 par Moi


i = Range("f19").Value
d = Range("i19").Value
Set Destination = Application.Workbooks.Open(d, , False)
Set classeurSource = Application.Workbooks.Open(i, , True)


[COLOR="Red"]With Workbooks(i).Sheets("feuil1")[/COLOR]
    Set x = .Range("E4:AI4").Find(Range("B5").Value, , xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then
    x.Resize(240).Copy
    Workbooks(d).Sheets("feuil1").Range("C65536").End(xlUp)(2).PasteSpecial xlPasteAll, xlNone, , True
End If
classeurSource.Close False
Destination.Save
Destination.Close True

End Sub

 

[Pierrot93]

Re : modification macro

Re,

modifie peut être ainsi :

With classeurSource.Sheets("feuil1")

@+

 

[guigui76]

Re : modification macro

Ta modif. fonction bien et j'ai pu corrigé pour la destination.
Tous ce passe bien, sauf les valeurs ne sont pas saisies.

Sub Macro6bis()
Dim Source As Range, Desti As Range
Dim i As String
Dim x As Range
' Macro enregistrée le 27/01/2010 par Moi


i = Range("f19").Value
d = Range("i19").Value
Set Destination = Application.Workbooks.Open(d, , False)
Set classeurSource = Application.Workbooks.Open(i, , True)

With classeurSource.Sheets("feuil1")

    Set x = .Range("E4:AI4").Find(Range("B5").Value, , xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then
    x.Resize(254).Copy
    Destination.Sheets("feuil1").Range("a65536").End(xlUp)(2).PasteSpecial xlPasteAll, xlNone, , True
End If
classeurSource.Close False
Destination.Save
Destination.Close False

End Sub

 

[Pierrot93]

Re : modification macro

Re

je ne sais pas si c'est ca, mais attention la valeur recherchée dans le "find" (range("B5")), sera recherchée sur le classeur actif et feuille active...

@+

 

[guigui76]

Re : modification macro

oui, tu as raison

 

[guigui76]

Re : modification macro

je ne vois pas comment, je peux indiquer que b5 et sur le premier classeur bilan general.
j'ai fais ceci mais cela ne va pas.

Sub Macro6bis()
Dim Source As Range, Desti As Range
Dim i As String
Dim x As Range
Dim y As String
' Macro enregistrée le 27/01/2010 par Moi

y = Range("b5").Value '
i = Range("f19").Value
d = Range("i19").Value

Set h = [COLOR="Red"]ActiveWorkbook(y)[/COLOR]
Set Destination = Application.Workbooks.Open(d, , False)
Set classeurSource = Application.Workbooks.Open(i, , True)


With classeurSource.Sheets("feuil1")

    Set x = .Range("E2:AI2").Find(Range(h).Value, , xlValues, xlWhole, , , False)
End With

 

[Pierrot93]

Re : modification macro

Re,

modifie comme suit, si "y" est valorisé par la bonne valeur

With classeurSource.Sheets("feuil1")

    Set x = .Range("E2:AI2").Find(y, , xlValues, xlWhole, , , False)
End With

@+

Edition : remplacé h par y qui est censé contenir la valeur de B5

 

[guigui76]

Re : modification macro

Je suis désolé mais cela ne fonctionne pas.
j'ai modifié pour le nom du classeur.
cela bloc sur find

Dim Source As Range, Desti As Range
Dim i As String
Dim x As Range
Dim y As String
' Macro enregistrée le 27/01/2010 par Moi

y = Range("b5").Value
i = Range("f19").Value
d = Range("i19").Value

Set h = [COLOR="Red"]Workbooks("bilan general.xls")[/COLOR][COLOR="Lime"]j'ai mis cela[/COLOR]
Set Destination = Application.Workbooks.Open(d, , False)
Set classeurSource = Application.Workbooks.Open(i, , True)


With classeurSource.Sheets("feuil1")
Set x = .Range("E2:AI2").[COLOR="Magenta"]Find(h, , [/COLOR]xlValues, xlWhole, , , False)
'Set x = .Range("E2:AI2").Find(Range(h).Value, , xlValues, xlWhole, , , False)

 

[Pierrot93]

Re : modification macro

re,

aarf, j'avais édité mon post et remplacé h par y... désolé...

 

[guigui76]

Re : modification macro

il ne se passe rien, veux-tu que je t'envoyes les fichiers?

 

[guigui76]

Re : modification macro

J'ai trouve une bidouillle, il faut que je marque dans le fichier source la valeur recherché.
je ne sais pas trop comment faire mais je vais y arriver

 

[Pierrot93]

Re : modification macro

Re

A vérifier lorsque tu exécute pas à pas (touche f8) le code, que ta variable soit bien initialisée, et ce dans la fenêtre variables locales de l'éditeur vba... Sinon autre solution, préciser le classeur et la feuille dans le "find" :

Set x = .Range("E2:AI2").Find(Workbooks("nomclasseur.xls").Sheets("nomfeuille").Range("B5").Value _
    , , xlValues, xlWhole, , , False)

@+

 

[guigui76]

Re : modification macro

Tu es un genie cela fonctionne parfaitement.
et de plus c'est bien plus rapide.
comment as tu fais pour apprendre tous cela?

 

[guigui76]

Re : modification macro

Je reviens à la charge, mais, je voudrais savoir si je peux selectionner des cellules non contigues:

If Not x Is Nothing Then
   [COLOR="Red"] x.Resize(240).Copy[/COLOR]
    Workbooks(d).Sheets("feuil1").Range("C65536").End(xlUp)(2).PasteSpecial xlPaste

exemple: colonne c ligne 2 et lignes 241 à 500.
Je te remercie

 

[Pierrot93]

Re : modification macro

Bonjour guigui

pour les selectionner, pas de problème :

Range("C2,C241:C500").Select

bon dimanche
@+