traduction d'une macro.

cococh · 6 Octobre 2008

bonjour à tous, je m'adresse à vous car j'ai affaire à une macro qui marche bien, que ma aimablement donné un membre du forum, mais je ne la comprend pas. Du coup, elle marche bien sur le fichier exemple mais je n'arive pas à la mettre en application dans mon fichier.

en sauriez-vous plus que moi à ce sujet?
je vous remerci d'avance.

Code:

Sub transfert()

Set av = ActiveSheet.Rows(11).Find(Range("H4"), LookIn:=xlValues, lookat:=xlWhole)

Set ap = ActiveSheet.Rows(11).Find(Range("I4"), LookIn:=xlValues, lookat:=xlWhole)

Set ligne = ActiveSheet.Columns(1).Find(Range("F4"), LookIn:=xlValues, lookat:=xlWhole)

Cells(ligne.Row, av.Column) = Cells(ligne.Row, av.Column) - Range("G4")

Cells(ligne.Row, ap.Column) = Cells(ligne.Row, ap.Column) + Range("G4")

End Sub

Staple1600 · 6 Octobre 2008

Re : traduction d'une macro.

Bonjour

Aurais-tu un classeur exemple dans lequel cette macro fonctionne ?

Car ce code VBA seul testé palnte sur Excel 2000.

cococh · 6 Octobre 2008

Re : traduction d'une macro.

je te renvoi vers le sujet d'origine, le code est présent de le fichier réponse de pierrejean.

https://www.excel-downloads.com/threads/gerer-independament-des-lignes.103757/

cococh · 6 Octobre 2008

Re : traduction d'une macro.

juste pour info, le fichier de pierrejean ne fonctionne pas nikelcar les ortographes des tetes de colonnes diffère légérement des nom dans la liste (ex: stock)

Staple1600 · 6 Octobre 2008

Re : traduction d'une macro.

Re

Voici quelques explications en attendnt pierrejean

Code:

Sub transfert()
[COLOR=SeaGreen]'recherche du numéro de colonne contenant la valeur saisie en H4[/COLOR]
Set av = _
ActiveSheet.Rows(11).Find(Range("H4"), _
LookIn:=xlValues, lookat:=xlWhole)
[COLOR=SeaGreen]'recherche du numéro de colonne contenant la valeur saisie en I4[/COLOR]
Set ap = _
ActiveSheet.Rows(11).Find(Range("I4"), _
LookIn:=xlValues, lookat:=xlWhole)
[COLOR=SeaGreen]'recherche du numéro de ligne contenant la valeur saisie en F4[/COLOR]
Set ligne = _
ActiveSheet.Columns(1).Find(Range("F4"), _
LookIn:=xlValues, lookat:=xlWhole)
[COLOR=SeaGreen]'soustraction de valeur de G4 à la celule trouvée[/COLOR]
Cells(ligne.Row, av.Column) = _
Cells(ligne.Row, av.Column) - Range("G4")
'[COLOR=SeaGreen]addition de valeur de G4 à la celule trouvée[/COLOR]
Cells(ligne.Row, ap.Column) = _
Cells(ligne.Row, ap.Column) + Range("G4")
End Sub

cococh · 6 Octobre 2008

Re : traduction d'une macro.

merci beaucoup, cela m'avance déja bien.

Autre problème: j'ai ajouté une colone poubelle qui est caché. ainsi lorsque j'envois un outil vers pou belles, il disparait. cela fonctionne bien.

J'rai fait la meme chose pour le outils neufs mais dans la casse neuve, j'ai mis un très grand chiffre (99999999999) . du coup quand je prend de neuf vers une autre colone, ce chiffre diminu. existe-il une fonction "infinie" qui éviterais d'avoir à mettre une chiffre ?

traduction d'une macro.

cococh

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

cococh

XLDnaute Occasionnel

cococh

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

cococh

XLDnaute Occasionnel

Discussions similaires