Discussion :

[guismoman33]

Comment peut ton dire : de la case b6 à b10 tout les chiffre qui ne sont pas egale à 0 devienne 0...Mais tte les case ou il y a des formule je veut pas ki les change

je cherche mais je ne trouve toujours pas
peut on dire si ce caractere est un chiffre alors ...

[marsupilami34]

Bonjour,

En fait je n'ai pas tout compris. Est ce que tu pourrais etre plus clair ?

[cwain]

Rebonjour,

Essaie avec IsNumeric

[guismoman33]

je fais quoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if nombre isnumeric then
nombre = "0"

[guismoman33]

j'explique le contexte!!!Quand j'ouvre excel tout met tableau son a 0!!!
Une fois remplie je clique sur le bouton rajouter une feuille. Ce bouton me permet de copier la feuille mais quand il la copie elle est remplie comme la premiere. Donc j'aimerai que quand je clique sur le bouton il m'ouvre une feuille vierge!!!

[cwain]

En utilisant la touche pour lire l'aide de VBA, tu as accès aux informations suivantes pour IsNumeric

IsNumeric, fonction, exemple
Cet exemple utilise la fonction IsNumeric pour déterminer si une variable peut prendre la valeur d'un nombre.
Dim MyVar, MyCheck
MyVar = "53" ' Affectation d'une valeur numérique.
MyCheck = IsNumeric(MyVar) ' Renvoie True.
MyVar = "459.95" ' Affectation d'une valeur numérique.
MyCheck = IsNumeric(MyVar) ' Renvoie True.
MyVar = "45 Aide" ' Affectation d'une chaîne de caractères.
MyCheck = IsNumeric(MyVar) ' Renvoie False.

Penses à utiliser l'aide ! Plein d'informations intéressantes là-dedans !

[marsupilami34]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If isnumeric (Nombre) then
......
End if

[guismoman33]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim r1 As Single
Dim cell As Single
Dim rep As Boolean
r1 = ActiveWorkbook.Sheets.Count
cell = Workbooks(1).Sheets(r1).Range("D8").Value
rep = IsNumeric(cell)
If rep = True Then
   cell = "0"
End If
 
End Sub

Voila mon programme il ne marche pas je comprend plus rien!!!Au debut je lui dit d'executer le programme quand une nouvelle feuille s'ouvre puis j'ai fait le test pour une cellule mais sa ne marche pas!!!Le programme il faut le mettre ou? Dans le code d'une page?peut importe la page??

[cafeine]

Hello,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each c In Range("B6:B10").Cells
  If (c <> 0) And Not (c.HasFormula) Then
    c.Value = 0
  End If
Next c

[marsupilami34]

Ben le code que tu as écrit s'execute dès que ajoute un nouvelle onglet à ton claseeur excel.

Et tu dis que ca ne marche pas mais à quel niveau ?

[cwain]

Je pense que l'évènement Workbook_NewSheet s'applique à la création d'une nouvelle feuille. Le code n'est pas exécuté dans le cas d'une duplication d'une feuille déjà existante, ce qui, je crois, est ton cas

[random]

Hello,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each c In Range("B6:B10").Cells
  If (c <> 0) And Not (c.HasFormula) Then
    c.Value = 0
  End If
Next c

clap clap et merci je note
je connaissais pas hasformula

[Kraaan]

Ce bout de code de toute beauté, tu dois le placer dans le code de ton workbook dans la fonction workbook_open :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
   place le code ici...
End Sub

J'm'excuse si cette précision n'étai pas nécessaire mais il me semblait qu'une ambiguité persistait pour toi sur ce point ^^

[guismoman33]

Ouai mais c'est bein ssa mais rappeler vous que nous remettons que la feuille créer en cours donc il faut indiquez le numero de la feuille et pas que la parti de tableau a remettre a 0

[guismoman33]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton8_Click()
 
Dim r1 As Single
Dim cell As Single
 
r1 = ActiveWorkbook.Sheets.Count
cell = Workbooks(1).Sheets(r1).Range("D8").Value
If IsNumeric(cell) Then
cell = "0"
End If
End Sub

J'ai tester ce code avec un bouton il ne marche deja pas!!!
et l'autre code du dessus je comprend pas avec le "c" ... merci de me repondre

[guismoman33]

voila le bon code mais il n'y a plus qu'a trouver la bonne entete et sa c tres difficile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
Dim r1 As Single
Dim i As Single
r1 = ActiveWorkbook.Sheets.Count
 
For i = 7 To 26
If IsNumeric(Workbooks(1).Sheets(r1).Range("D" & i).Value) Then
If Workbooks(1).Sheets(r1).Range("D" & i).Value <> "" Then
Workbooks(1).Sheets(r1).Range("D" & i).Value = "0"
End If
End If
Next i
 
For i = 7 To 26
If IsNumeric(Workbooks(1).Sheets(r1).Range("E" & i).Value) Then
If Workbooks(1).Sheets(r1).Range("D" & i).Value <> "" Then
Workbooks(1).Sheets(r1).Range("E" & i).Value = "0"
End If
End If
Next i
 
For i = 7 To 26
If IsNumeric(Workbooks(1).Sheets(r1).Range("F" & i).Value) Then
If Workbooks(1).Sheets(r1).Range("D" & i).Value <> "" Then
Workbooks(1).Sheets(r1).Range("F" & i).Value = "0"
End If
End If
Next i
 
For i = 7 To 26
If IsNumeric(Workbooks(1).Sheets(r1).Range("G" & i).Value) Then
If Workbooks(1).Sheets(r1).Range("D" & i).Value <> "" Then
Workbooks(1).Sheets(r1).Range("G" & i).Value = "0"
End If
End If
Next i
 
For i = 7 To 26
If IsNumeric(Workbooks(1).Sheets(r1).Range("H" & i).Value) Then
If Workbooks(1).Sheets(r1).Range("D" & i).Value <> "" Then
Workbooks(1).Sheets(r1).Range("H" & i).Value = "0"
End If
End If
Next i