Remplacer enregistrement si action existe
Résolu
dragoes64
Messages postés
10
Date d'inscription
lundi 9 mai 2011
Statut
Membre
Dernière intervention
12 août 2011
-
10 mai 2011 à 10:47
dragoes64 Messages postés 10 Date d'inscription lundi 9 mai 2011 Statut Membre Dernière intervention 12 août 2011 - 11 mai 2011 à 10:12
dragoes64 Messages postés 10 Date d'inscription lundi 9 mai 2011 Statut Membre Dernière intervention 12 août 2011 - 11 mai 2011 à 10:12
A voir également:
- Remplacer enregistrement si action existe
- Vba remplacer caractère spéciaux - Forum Visual Basic
- Action listener java - Conseils pratiques -Java
- Vba remplacer caractère - Forum Visual Basic
- Pion loto action - Forum Flash
- Sql remplacer null par 0 ✓ - Forum SQL
4 réponses
dragoes64
Messages postés
10
Date d'inscription
lundi 9 mai 2011
Statut
Membre
Dernière intervention
12 août 2011
11 mai 2011 à 10:12
11 mai 2011 à 10:12
C bon j'ai trouvé, voici le code pour ceux que sa peut aider :
Il faut remplacer :
i = FL1.Range("A65536").End(xlUp).Row + 1
par
With FL1
On Error Resume Next
Set Mytitle = .Columns("A:A").Find(What:=EditAction.IDAction, LookAt:=xlWhole)
If Mytitle Is Nothing Then
i = .Range("A65536").End(xlUp).Row + 1
Else
.Range(Mytitle.Row, Mytitle.Row + 37).ClearContents
i = Mytitle.Row
End If
On Error GoTo 0
End With
Voila
Il faut remplacer :
i = FL1.Range("A65536").End(xlUp).Row + 1
par
With FL1
On Error Resume Next
Set Mytitle = .Columns("A:A").Find(What:=EditAction.IDAction, LookAt:=xlWhole)
If Mytitle Is Nothing Then
i = .Range("A65536").End(xlUp).Row + 1
Else
.Range(Mytitle.Row, Mytitle.Row + 37).ClearContents
i = Mytitle.Row
End If
On Error GoTo 0
End With
Voila
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
10 mai 2011 à 13:26
10 mai 2011 à 13:26
Salut
Il faut d'abord faire une recherche de cet IDAction.
Voir ma http://www.vbfrance.com/forum/sujet-REMPLIR-FORMULAIRE-AVEC-DONNEES-CONTENUES-DANS-FEUILLE-EXCEL_1519613.aspx à ce sujet
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Il faut d'abord faire une recherche de cet IDAction.
Voir ma http://www.vbfrance.com/forum/sujet-REMPLIR-FORMULAIRE-AVEC-DONNEES-CONTENUES-DANS-FEUILLE-EXCEL_1519613.aspx à ce sujet
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
dragoes64
Messages postés
10
Date d'inscription
lundi 9 mai 2011
Statut
Membre
Dernière intervention
12 août 2011
10 mai 2011 à 13:41
10 mai 2011 à 13:41
Re
Je ne vois pas comment tu fais pour voir si l'action existe (je dois pas bien voir sans doute)
J'aimerais aussi savoir comment on fait pour remplacé la ligne quand elle existe
Pour répondre à tes questions ,formulaire c'est des user form et mes données sont stockées en lignes et les champs en colonne
Merci
Je ne vois pas comment tu fais pour voir si l'action existe (je dois pas bien voir sans doute)
J'aimerais aussi savoir comment on fait pour remplacé la ligne quand elle existe
Pour répondre à tes questions ,formulaire c'est des user form et mes données sont stockées en lignes et les champs en colonne
Merci
dragoes64
Messages postés
10
Date d'inscription
lundi 9 mai 2011
Statut
Membre
Dernière intervention
12 août 2011
11 mai 2011 à 08:39
11 mai 2011 à 08:39
Bonjour,
Quelqu'un aurait-il une solution car là je suis un peu perdu ?
Merci
Quelqu'un aurait-il une solution car là je suis un peu perdu ?
Merci
