voici le code suivant qui a pour but de mettre la valeur 0 dans les cellules
selectionnée mais cela ne fonctionne pas
quelqu'un pourrait il m'aider ?
'Je précise que j'execute ce code à partir d'access
Public Function protect_sheets_integrees(xlsfile As File) As Boolean
On Error GoTo protect_sheets_integrees_error
Dim xlss As Excel.Application
Dim wrk As Workbook
Dim sht As Worksheet
Dim plage As Range
protect_sheets_integrees = False
'Protection de la feuille 1
Set sht = wrk.Sheets("Feuil1")
sht.Unprotect ("Proust")
sht.Select
Set plage =
sht.Range("C7,C9,C10,C11,C12,C13,C14,C15,C16,C17,C19,C28,C30,C32,C34,C36,C38
,C40,C42").Select
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
Vincent.
Bonjour, J'ai remarqué que, parfois, Range("A1,B1,C3") ne marchait pas alors que Union(Range("A1"),Range("B1"),Range("C3")) marche... Pê que ton problème vient de là.
-----Message d'origine----- bonjour,
voici le code suivant qui a pour but de mettre la valeur 0 dans les cellules
selectionnée mais cela ne fonctionne pas quelqu'un pourrait il m'aider ?
'Je précise que j'execute ce code à partir d'access
Public Function protect_sheets_integrees(xlsfile As File) As Boolean
On Error GoTo protect_sheets_integrees_error Dim xlss As Excel.Application Dim wrk As Workbook Dim sht As Worksheet Dim plage As Range
protect_sheets_integrees = False
'Protection de la feuille 1 Set sht = wrk.Sheets("Feuil1") sht.Unprotect ("Proust") sht.Select Set plage = sht.Range ("C7,C9,C10,C11,C12,C13,C14,C15,C16,C17,C19,C28,C30,C32,C34
Bonjour,
J'ai remarqué que, parfois, Range("A1,B1,C3") ne marchait
pas alors que Union(Range("A1"),Range("B1"),Range("C3"))
marche... Pê que ton problème vient de là.
-----Message d'origine-----
bonjour,
voici le code suivant qui a pour but de mettre la valeur
0 dans les cellules
selectionnée mais cela ne fonctionne pas
quelqu'un pourrait il m'aider ?
'Je précise que j'execute ce code à partir d'access
Public Function protect_sheets_integrees(xlsfile As File)
As Boolean
On Error GoTo protect_sheets_integrees_error
Dim xlss As Excel.Application
Dim wrk As Workbook
Dim sht As Worksheet
Dim plage As Range
protect_sheets_integrees = False
'Protection de la feuille 1
Set sht = wrk.Sheets("Feuil1")
sht.Unprotect ("Proust")
sht.Select
Set plage =
sht.Range
("C7,C9,C10,C11,C12,C13,C14,C15,C16,C17,C19,C28,C30,C32,C34
Bonjour, J'ai remarqué que, parfois, Range("A1,B1,C3") ne marchait pas alors que Union(Range("A1"),Range("B1"),Range("C3")) marche... Pê que ton problème vient de là.
-----Message d'origine----- bonjour,
voici le code suivant qui a pour but de mettre la valeur 0 dans les cellules
selectionnée mais cela ne fonctionne pas quelqu'un pourrait il m'aider ?
'Je précise que j'execute ce code à partir d'access
Public Function protect_sheets_integrees(xlsfile As File) As Boolean
On Error GoTo protect_sheets_integrees_error Dim xlss As Excel.Application Dim wrk As Workbook Dim sht As Worksheet Dim plage As Range
protect_sheets_integrees = False
'Protection de la feuille 1 Set sht = wrk.Sheets("Feuil1") sht.Unprotect ("Proust") sht.Select Set plage = sht.Range ("C7,C9,C10,C11,C12,C13,C14,C15,C16,C17,C19,C28,C30,C32,C34
