traduction d'une macro.

[cococh]

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.

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]

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]

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]

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]

Re : traduction d'une macro.

Re



Voici quelques explications en attendnt pierrejean

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]

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 ?