Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.2c547d6a0d78625e.40692@free.fr.ns...
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.2c547d6a0d78625e.40692@free.fr.ns...
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
j'ai corrigé comme çà :
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
j'ai corrigé comme çà :
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.2c547d6a0d78625e.40692@free.fr.ns...
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
j'ai corrigé comme çà :
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.2c547d6a0d78625e.40692@free.fr.ns...
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses
Il y a ceci :
Adapte le nom de la feuille
Le critère ne tient compte que des
12 premiers caractères et ne tient pas
compte des 3 derniers....
'---------------------------
Dim NbLignes As Long, Crit As String
Dim Adr1 As String, Adr2 As String
Dim SommeOut As Double
Crit = """192.168.100."""
NbLignes = 10
With Worksheets("Feuil2")
NbLignes = .Range("C1:C" & .Range("C65536").End(xlup).row)
Adr1 = .Name & "!" & Range("C1:C" & NbLignes).Address
Adr2 = .Name & "!" & Range("F1:F" & NbLignes).Address
End With
'
SommeOut = Evaluate("SUMPRODUCT((Left(" & Adr1 & ",12)=" & _
Crit & ")*(" & Adr2 & "))")
'---------------------------
"JLuc" a écrit dans le message de news:
Bonjour les lecteurs,
Un petit gros problème dont vous seuls, artistes and co, pourrez venir
à bout.
J'ai le code suivant :
Dim sommeout
...
...
NbLignes = Range("A65536").End(xlUp).Row
sommeout = :'(Application.WorksheetFunction.SumProduct _
(Range("C1:C" & NbLignes) = "192.168.100.**", Range("F1:F" &
NbLignes))
et j'obtiens : erreur 13
"Incompatibilité de type"
Pourriez vous éclairer ma petite bougie et m'orienter vers un brin de
solution ?
Je ne suis même pas sûr que la fonction est écrite correctement :oÞ
Merci pour vos reponses