fonction si en vba

Version imprimable

fonction si en vba

bonjour, je ne comprend pas pourquoi cela ne marche pas
le choix ne fonctionne pas
il me marque toujours la meme chose:
=@IP de la CPU : etc....
Code:

1 2 3 4 5 6 7 8 9 10 11 'Si la E7 < 0 alors signet "IpCpu"=vide sinon signet "IpCpu"=@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7] 'With Sheets("Info CLIENT") 'si "E7" est plus grand que 0 If [E7] Is Null Then '> 0 Then 'Alors le signet "IpCpu" prend la valeur =@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7] .Bookmarks("IpCpu").Range.Text = ("@IP de la CPU : ") & [E7] & (" Avec le Masque Réseau : ") & [O7] Else 'Alors le signet "IpCpu" prend la valeur = vide .Bookmarks("IpCpu").Range.Text = (" 0 ") End If 'End With
Merci de l'aide que vous pourrez m'apporter.
P.S : c'est le 1er post que je fais , donc si il y a des oublie ,je vous pries de m'en excuser.

Citation:
Envoyé par youki94
bonjour, je ne comprend pas pourquoi cela ne marche pas
le choix ne fonctionne pas
il me marque toujours la meme chose:
=@IP de la CPU : etc....
Code:

1 2 3 4 5 6 7 8 9 10 11 'Si la E7 < 0 alors signet "IpCpu"=vide sinon signet "IpCpu"=@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7] 'With Sheets("Info CLIENT") 'si "E7" est plus grand que 0 If [E7] Is Null Then '> 0 Then 'Alors le signet "IpCpu" prend la valeur =@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7] .Bookmarks("IpCpu").Range.Text = ("@IP de la CPU : ") & [E7] & (" Avec le Masque Réseau : ") & [O7] Else 'Alors le signet "IpCpu" prend la valeur = vide .Bookmarks("IpCpu").Range.Text = (" 0 ") End If 'End With
Salut bienvenu sur le forum
J'ai entouré ton code des balises sinon c'est incompréhensible.
Difficile de t'aider sans savoir ce que vaut [E7] mais mon petit doigt me dit qu'il est NULL.

Et si tu montrais le reste de ton code pour savoir d'où vient ce E7 ?

Merci d'utiliser les balises codes comme expliqué ici

11/11/2008, 20h47
youki94

Dans E7 j'ai :
- rien
-123.123.123.123
ou une autre valeur du meme type en sachant que c'est du texte

oups !!
E7 est une cellule que je remplis
11/11/2008, 21h02
Godzestla
Citation:

Envoyé par youki94

oups !!
E7 est une cellule que je remplis

Alors essaie de tester autrement.
Code:

1 2 If Range("E7"] = "" then

maintenant cela ne me met plus rien

voila le code qui pose probleme

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
'Ouvrir Word en
'Supposant un document Fiche.doc contenant les signets: "Nom"et "Cpu"
Dim LaFicheTech As String
Dim LeNom
Dim ObjWord As Object
On Error Resume Next
LaFicheTech = ThisWorkbook.Path & "\Fiche.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LaFicheTech)
LeNom = [A1]
With LeDocWord
'Le nom du signet dans le document word est ici "Nom"
.Bookmarks("Nom").Range.Text = LeNom

'cette parti ne fonctionne pas
'Si la E7 < 0 alors signet "Cpu"=vide sinon signet "Cpu"=@IP de la CPU : + [E7]
With Sheets("Info CLIENT")
    'si "E7" est plus grand que 0
  if [E7] Is Null Then '> 0 Then
    'Alors le signet "IpCpu" prend la valeur =la CPU : + [E7] 
    .Bookmarks("Cpu").Range.Text = ("la CPU : ") & [E7]    ' Else
    'Alors le signet "Cpu" prend la valeur = vide
    .Bookmarks("Cpu").Range.Text = ("")
    End If
 End With
  jusque la
End With
'Pour enregistrer le doc avec le nom=Fiche + (A1).doc
Dim Chemin$, Client$, Fichier$
Chemin = ActiveWorkbook.Path & "\" & Client
Client = Range("A1")
Fichier = "Fiche " & Client & ".rtf"
LeDocWord.SaveAs Chemin & "\" & Fichier
'Quitter Word
ObjWord.Quit
Set ObjWord = Nothing

RE,

en gras ce qui ne peut pas marcher, selon moi. ;)
En Italique, la technique que tu devrais utiliser.

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
'Ouvrir Word en
'Supposant un document Fiche.doc contenant les signets: "Nom"et "Cpu"
Dim LaFicheTech As String
Dim LeNom
Dim ObjWord As Object
On Error Resume Next
LaFicheTech = ThisWorkbook.Path & "\Fiche.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LaFicheTech)
LeNom = [A1]
With LeDocWord
'Le nom du signet dans le document word est ici "Nom"
.Bookmarks("Nom").Range.Text = LeNom

'cette parti ne fonctionne pas
'Si la E7 < 0 alors signet "Cpu"=vide sinon signet "Cpu"=@IP de la CPU : + [E7]
With Sheets("Info CLIENT")
    'si "E7" est plus grand que 0
  if [E7] Is Null Then '> 0 Then
    'Alors le signet "IpCpu" prend la valeur =la CPU : + [E7] 
    .Bookmarks("Cpu").Range.Text = ("la CPU : ") & [E7]    ' Else
    'Alors le signet "Cpu" prend la valeur = vide
    .Bookmarks("Cpu").Range.Text = ("")
    End If
 End With
  jusque la
End With
'Pour enregistrer le doc avec le nom=Fiche + (A1).doc
Dim Chemin$, Client$, Fichier$
Chemin = ActiveWorkbook.Path & "\" & Client
Client = Range("A1")
Fichier = "Fiche " & Client & ".rtf"
LeDocWord.SaveAs Chemin & "\" & Fichier
'Quitter Word
ObjWord.Quit
Set ObjWord = Nothing

Bon merci de l'aide ca fonctionne maintenant
En gras ce que j'ai modifier selon les conseils

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
'Ouvrir Word avec le document Fiche.doc contenant les signets: "Nom"et "Cpu"
Dim LaFicheTech As String
Dim LeNom
Dim Cputyp
Dim ObjWord As Object
On Error Resume Next
LaFicheTech = ThisWorkbook.Path & "\Fiche.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LaFicheTech)
LeNom = [A1]
Cputyp = [E7]
With LeDocWord
'Modifie le signet "Nom" par la valeur de: LeNom = cellule A1
.Bookmarks("Nom").Range.Text = LeNom
'Si la E7=vide alors signet "Cpu"=vide sinon signet "Cpu"=la CPU : + [E7]
    'si "E7" est vide
  if Cputyp="" Then
    'Alors le signet "Cpu" prend la valeur =la CPU : + [E7] 
    .Bookmarks("Cpu").Range.Text = ("la CPU : ") & [E7]    
     Else
    'Alors le signet "Cpu" prend la valeur = vide
    .Bookmarks("Cpu").Range.Text = ("")
    End If
End With
'Pour enregistrer le doc avec le nom=Fiche + (A1).doc
Dim Chemin$, Client$, Fichier$
Chemin = ActiveWorkbook.Path & "\" & Client
Client = Range("A1")
Fichier = "Fiche " & Client & ".rtf"
LeDocWord.SaveAs Chemin & "\" & Fichier
'Quitter Word
ObjWord.Quit
Set ObjWord = Nothing