Fonction FIND en VBA et Offset
Bonjour,
Je cherche actuellement à faire en sorte qu'une Macro VBA sous excel parte de la case active du premier classeur nomé X:
- qu'il cherche la date qui est à gauche de la cellule active (classeur X) dans le deuxième classeur nomé Y
- puis qu'il prenne une valeur dans une colonne a droite de la date (classeur Y)
-enfin enregistrer range("DBA0").value= valeur trouver.
D'avance merci beaucoup si vous arrivez à m'aider...
Mc's a Gk
Je cherche actuellement à faire en sorte qu'une Macro VBA sous excel parte de la case active du premier classeur nomé X:
- qu'il cherche la date qui est à gauche de la cellule active (classeur X) dans le deuxième classeur nomé Y
- puis qu'il prenne une valeur dans une colonne a droite de la date (classeur Y)
-enfin enregistrer range("DBA0").value= valeur trouver.
D'avance merci beaucoup si vous arrivez à m'aider...
Mc's a Gk
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
ModérateurSalut,
C'est quoi au juste ton Range("DBA0")?????
Sinon pour le reste :
Dim col As String, lign As String, var1 As String, var2 As String
col = ActiveCell.Column
lign = ActiveCell.Row
With Sheets("Feuil2")
var1 = .Cells(lign, col - 1).Value
var2 = .Cells(lign, col + 1).Value
End With
Range("DBA0").value = var1 & " " & var2
-
Merci beaucou^p pour cette réponse.
Le DBA0 est en faite une variable... donc au lieu de range("DBA0").value = c'est juste DBA0 = si je ne me trompe pas?
(re) Merci beaucoup,
Mc's Gk
