[VBA-E] sélection et remplacement

Version imprimable

06/02/2007, 14h11
guismoman33

[VBA-E] sélection et remplacement

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 ...
06/02/2007, 16h28
marsupilami34

Bonjour,

En fait je n'ai pas tout compris. Est ce que tu pourrais etre plus clair ?
06/02/2007, 16h32
cwain

Rebonjour,

Essaie avec IsNumeric
06/02/2007, 16h37
guismoman33
je fais quoi
Code:

1 2 if nombre isnumeric then nombre = "0"
06/02/2007, 16h40
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!!!
06/02/2007, 16h53
cwain

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

Citation:

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 ! ;)

Essaye

Code:

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

Code:

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??

Hello,

Code:

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

06/02/2007, 17h05
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 ?
06/02/2007, 17h25
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

Citation:
Envoyé par cafeine
Hello,
Code:

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

06/02/2007, 22h13
Kraaan
Ce bout de code de toute beauté, tu dois le placer dans le code de ton workbook dans la fonction workbook_open :
Code:

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 ^^
07/02/2007, 07h56
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

Code:

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

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

Code:

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