Je dois faire une programme qui classe des données selon la date. Je
m'explique, Dans la colonne A de la feuille 1 il y a des dates, dans la
colonne B de cette même feuille il y a des données. Ce que je dois faire :
dans la feuille 2 je dois placer les données à des endroits précis et selon
la date. Exemple Si dans la colonne A de la feuille 1,il y une date qui
correspond au 1er Janvier de l'année qui se situe dans la cellule I5, il faut
que la donnée qui se situe à la même ligne mais dans la colonne B, soit
classer dans la cellule A5 dans la feuille 2.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RaMA
Bonjour
Si j'ai compris!!
Sub TrafDat() Dim Fd Set Fd = [feuil1!A:A].Find([feuil2!I5], LookIn:=xlValues) If Not Fd Is Nothing Then [feuil2!A5] = Fd.Offset(0, 1) Else MsgBox "Pas trouv " & [feuil2!I5] End If Set Fd = Nothing End Sub
Salutations RaMa -- . "Gabriel" a écrit dans le message de news:
Bonjour
Je dois faire une programme qui classe des données selon la date. Je m'explique, Dans la colonne A de la feuille 1 il y a des dates, dans la colonne B de cette même feuille il y a des données. Ce que je dois faire : dans la feuille 2 je dois placer les données à des endroits précis et selon la date. Exemple Si dans la colonne A de la feuille 1,il y une date qui correspond au 1er Janvier de l'année qui se situe dans la cellule I5, il faut que la donnée qui se situe à la même ligne mais dans la colonne B, soit classer dans la cellule A5 dans la feuille 2.
Est-ce possible de faire cela en VBA
Merci
Bonjour
Si j'ai compris!!
Sub TrafDat()
Dim Fd
Set Fd = [feuil1!A:A].Find([feuil2!I5], LookIn:=xlValues)
If Not Fd Is Nothing Then
[feuil2!A5] = Fd.Offset(0, 1)
Else
MsgBox "Pas trouv " & [feuil2!I5]
End If
Set Fd = Nothing
End Sub
Salutations
RaMa
--
.
"Gabriel" <Gabriel@discussions.microsoft.com> a écrit dans le message de
news: 8C1D7D3C-3E65-48D8-9136-E9E622AE81BF@microsoft.com...
Bonjour
Je dois faire une programme qui classe des données selon la date. Je
m'explique, Dans la colonne A de la feuille 1 il y a des dates, dans la
colonne B de cette même feuille il y a des données. Ce que je dois faire
:
dans la feuille 2 je dois placer les données à des endroits précis et
selon
la date. Exemple Si dans la colonne A de la feuille 1,il y une date qui
correspond au 1er Janvier de l'année qui se situe dans la cellule I5, il
faut
que la donnée qui se situe à la même ligne mais dans la colonne B, soit
classer dans la cellule A5 dans la feuille 2.
Sub TrafDat() Dim Fd Set Fd = [feuil1!A:A].Find([feuil2!I5], LookIn:=xlValues) If Not Fd Is Nothing Then [feuil2!A5] = Fd.Offset(0, 1) Else MsgBox "Pas trouv " & [feuil2!I5] End If Set Fd = Nothing End Sub
Salutations RaMa -- . "Gabriel" a écrit dans le message de news:
Bonjour
Je dois faire une programme qui classe des données selon la date. Je m'explique, Dans la colonne A de la feuille 1 il y a des dates, dans la colonne B de cette même feuille il y a des données. Ce que je dois faire : dans la feuille 2 je dois placer les données à des endroits précis et selon la date. Exemple Si dans la colonne A de la feuille 1,il y une date qui correspond au 1er Janvier de l'année qui se situe dans la cellule I5, il faut que la donnée qui se situe à la même ligne mais dans la colonne B, soit classer dans la cellule A5 dans la feuille 2.
