S
samuel
Guest
Bonsoir à tous,
J'ai besoin de votre aide pour résoudre un problème un peu complexe:
J'utilise excel pour faire sondages, que j'historise sur une feuille.
Parfois j'ai pas le temps de finir de saisir toutes les info alors je gère un status en cours/terminé et grace à une macro je peux rappeler les fiches sondages en cours. Chaque fiche à une numéro de réf.
Mon problème est le suivant: actuellement quand je resauvegarde une fiche je suis obligé de recréer une ligne: j'ai donc des doublons.
Je voudrais pouvoir dire à la macro:
1- trouve dans la base de données la ligne correspondant au sondage que je suis en train de mettre à jour
2- et met à jour cette ligne
exemple:
Dim Index As Integer
Index = 8
While Sheets("BDETUDE").Cells(Index, 1) <> ""
'(pour la reference du sondage)
If Sheets("BDETUDE").Cells(Index, 1).Value = Sheets("fichesondage").Cells(11, 5).Value Then
'pour mettre à jour une des colonnes de la ligne sélectionnée
Sheets("fichesondage").Select
Range("J12").Select
Cont = Selection.Value
Sheets("BDETUDE").Select
Range("PIndex").Select
Selection.Value = Cont
End If
Index = Index + 1
Wend
Merci à tous
Bonne soirée
Samuel
J'ai besoin de votre aide pour résoudre un problème un peu complexe:
J'utilise excel pour faire sondages, que j'historise sur une feuille.
Parfois j'ai pas le temps de finir de saisir toutes les info alors je gère un status en cours/terminé et grace à une macro je peux rappeler les fiches sondages en cours. Chaque fiche à une numéro de réf.
Mon problème est le suivant: actuellement quand je resauvegarde une fiche je suis obligé de recréer une ligne: j'ai donc des doublons.
Je voudrais pouvoir dire à la macro:
1- trouve dans la base de données la ligne correspondant au sondage que je suis en train de mettre à jour
2- et met à jour cette ligne
exemple:
Dim Index As Integer
Index = 8
While Sheets("BDETUDE").Cells(Index, 1) <> ""
'(pour la reference du sondage)
If Sheets("BDETUDE").Cells(Index, 1).Value = Sheets("fichesondage").Cells(11, 5).Value Then
'pour mettre à jour une des colonnes de la ligne sélectionnée
Sheets("fichesondage").Select
Range("J12").Select
Cont = Selection.Value
Sheets("BDETUDE").Select
Range("PIndex").Select
Selection.Value = Cont
End If
Index = Index + 1
Wend
Merci à tous
Bonne soirée
Samuel