Bonjour
Je d=E9sire reprendre dans un msgbox cela :
Dans la colonne A la date, B le nom, C le pr=E9nom
Je souhaite poser une question=20
Voulez-vous effacer le dossier saisi le & date &=20
concernant & nom & pr=E9nom ?
Avec effacement de la ligne de A =E0 E en cas de r=E9ponse Oui
Merci beaucoup
Michel
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
Ellimac
Bonjour,
S'agit-il de la ligne active ou de la dernière ligne ou encore ??? Pour la ligne active : Rep = Msgbox("Voulez-vous effacer le dossier saisi le " & cells(activecell.row,1) & " concernant " & cells (activecell.row,2) & cells(activecell.row,3) ,vbyesno) If Rep=vbyes then range(cells(activecell.row,1),cells (activecell.row,5)).Clearcontents
Camille
-----Message d'origine----- Bonjour Je désire reprendre dans un msgbox cela : Dans la colonne A la date, B le nom, C le prénom Je souhaite poser une question Voulez-vous effacer le dossier saisi le & date & concernant & nom & prénom ? Avec effacement de la ligne de A à E en cas de réponse Oui Merci beaucoup Michel
.
Bonjour,
S'agit-il de la ligne active ou de la dernière ligne ou
encore ???
Pour la ligne active :
Rep = Msgbox("Voulez-vous effacer le dossier saisi le " &
cells(activecell.row,1) & " concernant " & cells
(activecell.row,2) & cells(activecell.row,3) ,vbyesno)
If Rep=vbyes then range(cells(activecell.row,1),cells
(activecell.row,5)).Clearcontents
Camille
-----Message d'origine-----
Bonjour
Je désire reprendre dans un msgbox cela :
Dans la colonne A la date, B le nom, C le prénom
Je souhaite poser une question
Voulez-vous effacer le dossier saisi le & date &
concernant & nom & prénom ?
Avec effacement de la ligne de A à E en cas de réponse Oui
Merci beaucoup
Michel
S'agit-il de la ligne active ou de la dernière ligne ou encore ??? Pour la ligne active : Rep = Msgbox("Voulez-vous effacer le dossier saisi le " & cells(activecell.row,1) & " concernant " & cells (activecell.row,2) & cells(activecell.row,3) ,vbyesno) If Rep=vbyes then range(cells(activecell.row,1),cells (activecell.row,5)).Clearcontents
Camille
-----Message d'origine----- Bonjour Je désire reprendre dans un msgbox cela : Dans la colonne A la date, B le nom, C le prénom Je souhaite poser une question Voulez-vous effacer le dossier saisi le & date & concernant & nom & prénom ? Avec effacement de la ligne de A à E en cas de réponse Oui Merci beaucoup Michel
.
Michel
Merci beaucoup Camille, c'est exactement ce que je cherchais Michel
-----Message d'origine----- Bonjour,
S'agit-il de la ligne active ou de la dernière ligne ou encore ??? Pour la ligne active : Rep = Msgbox("Voulez-vous effacer le dossier saisi le " & cells(activecell.row,1) & " concernant " & cells (activecell.row,2) & cells(activecell.row,3) ,vbyesno) If Rep=vbyes then range(cells(activecell.row,1),cells (activecell.row,5)).Clearcontents
Camille
-----Message d'origine----- Bonjour Je désire reprendre dans un msgbox cela : Dans la colonne A la date, B le nom, C le prénom Je souhaite poser une question Voulez-vous effacer le dossier saisi le & date & concernant & nom & prénom ? Avec effacement de la ligne de A à E en cas de réponse Oui
Merci beaucoup Michel
.
.
Merci beaucoup Camille,
c'est exactement ce que je cherchais
Michel
-----Message d'origine-----
Bonjour,
S'agit-il de la ligne active ou de la dernière ligne ou
encore ???
Pour la ligne active :
Rep = Msgbox("Voulez-vous effacer le dossier saisi le " &
cells(activecell.row,1) & " concernant " & cells
(activecell.row,2) & cells(activecell.row,3) ,vbyesno)
If Rep=vbyes then range(cells(activecell.row,1),cells
(activecell.row,5)).Clearcontents
Camille
-----Message d'origine-----
Bonjour
Je désire reprendre dans un msgbox cela :
Dans la colonne A la date, B le nom, C le prénom
Je souhaite poser une question
Voulez-vous effacer le dossier saisi le & date &
concernant & nom & prénom ?
Avec effacement de la ligne de A à E en cas de réponse
Oui
Merci beaucoup Camille, c'est exactement ce que je cherchais Michel
-----Message d'origine----- Bonjour,
S'agit-il de la ligne active ou de la dernière ligne ou encore ??? Pour la ligne active : Rep = Msgbox("Voulez-vous effacer le dossier saisi le " & cells(activecell.row,1) & " concernant " & cells (activecell.row,2) & cells(activecell.row,3) ,vbyesno) If Rep=vbyes then range(cells(activecell.row,1),cells (activecell.row,5)).Clearcontents
Camille
-----Message d'origine----- Bonjour Je désire reprendre dans un msgbox cela : Dans la colonne A la date, B le nom, C le prénom Je souhaite poser une question Voulez-vous effacer le dossier saisi le & date & concernant & nom & prénom ? Avec effacement de la ligne de A à E en cas de réponse Oui
