Fonction FIND en VBA et Offset
MC's Assigned geek
-
MC's Assigned geek -
MC's Assigned geek -
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 and mount - Télécharger - Récupération de données
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Find grep ✓ - Forum Linux / Unix
2 réponses
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
