Fonction FIND en VBA et Offset
Fermé
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
A voir également:
- Fonction FIND en VBA et Offset
- Fonction si et - Guide
- Find grep ✓ - Forum Linux / Unix
- Fonction moyenne excel - Guide
- Fonction filtre excel n'existe pas - Forum Excel
- Offset path illustrator français ✓ - Forum Illustrator
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 757
4 août 2009 à 10:03
4 août 2009 à 10:03
Salut,
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
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