Macro pour une feuille
Résolu/Fermé
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
-
31 oct. 2013 à 23:41
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 2 nov. 2013 à 22:55
castours Messages postés 2955 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 31 août 2019 - 2 nov. 2013 à 22:55
A voir également:
- Macro pour une feuille
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Supprimer une feuille word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Macro logiciel - Télécharger - Organisation
2 réponses
via55
Messages postés
14474
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
19 septembre 2024
2 729
1 nov. 2013 à 00:08
1 nov. 2013 à 00:08
Bonsoir
Un exemple :
https://www.cjoint.com/?0Kbah7YaYXI
Cdlmnt
Un exemple :
https://www.cjoint.com/?0Kbah7YaYXI
Cdlmnt
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
1 nov. 2013 à 11:35
1 nov. 2013 à 11:35
bonjour
je te remercie de l'aide que tu m'apportes.
je voudrai si c'est possible une modification qui porte sur l'enregistrement dans la feuille2.
c'est d'éviter les doublons d'enregistrements,une seule date
je te remercie
je te remercie de l'aide que tu m'apportes.
je voudrai si c'est possible une modification qui porte sur l'enregistrement dans la feuille2.
c'est d'éviter les doublons d'enregistrements,une seule date
je te remercie
via55
Messages postés
14474
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
19 septembre 2024
2 729
1 nov. 2013 à 12:48
1 nov. 2013 à 12:48
Bonjour
Modifies la macro en rajoutant les lignes en gras :
Private Sub CommandButton1_Click()
dl = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
deux = 0
For n = 2 To dl
If Sheets("Feuil2").Cells(n, 1).Value = Sheets("Feuil1").Range("D1").Value Then deux = 1
Next n
If deux = 1 Then MsgBox ("Cette date existe déjà"): Exit Sub
With Sheets("Feuil2")
.Cells(dl + 1, 1).Value = Sheets("Feuil1").Range("D1").Value
.Cells(dl + 1, 2).Value = Sheets("Feuil1").Range("D41").Value
End With
End Sub
Cdlmt
Modifies la macro en rajoutant les lignes en gras :
Private Sub CommandButton1_Click()
dl = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
deux = 0
For n = 2 To dl
If Sheets("Feuil2").Cells(n, 1).Value = Sheets("Feuil1").Range("D1").Value Then deux = 1
Next n
If deux = 1 Then MsgBox ("Cette date existe déjà"): Exit Sub
With Sheets("Feuil2")
.Cells(dl + 1, 1).Value = Sheets("Feuil1").Range("D1").Value
.Cells(dl + 1, 2).Value = Sheets("Feuil1").Range("D41").Value
End With
End Sub
Cdlmt
2 nov. 2013 à 22:55
Je te remercie cela fonctionne a merveille