Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier sur
le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi de
suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont la
cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier sur
le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi de
suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont la
cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier sur
le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi de
suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont la
cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu écris,
"Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 , il ne faut pas
écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi
de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu écris,
"Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 , il ne faut pas
écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+
Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi
de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu écris,
"Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 , il ne faut pas
écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi
de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
Bonjour et merci pour ta réponse,
J'ai effectivement choisi ton deuxième code avec IF. Ci-joint le résultat.
Par contre, j'ai 15 articles donc, j'ai recopié ce code pour chacun en
modifiant ctr en ctr1 et sh en sh1 aisni que les numéros de cellule. Par
contre, si dans mon devis je ne choisis qu'un article et il s'agit du 15°,
j'ai quatorze lignes blanches avant. Donc, en pompant sur le forum, j'ai
essayé d'adapter un code qui permet d'envoyer les valeurs dans la première
ligne vide mais .....mes compétences sont très limitées visiblement.(num =
Sheets("devis").Range("b65536").End(xlUp).Row ...)
Merci
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing Then
Ctr = Ctr + 1
End If
End If
Next
If Ctr <> 0 Then
With Sheets("devis").Range("e24")
.Value = Ctr
With Sheets("devis").Range("b24")
.Offset(0, 0).Value = "marteau"
End With
End With
End If
Sheets("devis").Select
End Sub
"anonymousA" a écrit dans le message de news:
433f9b67$0$17239$bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu écris,
"Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 , il ne faut pas
écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi
de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
Bonjour et merci pour ta réponse,
J'ai effectivement choisi ton deuxième code avec IF. Ci-joint le résultat.
Par contre, j'ai 15 articles donc, j'ai recopié ce code pour chacun en
modifiant ctr en ctr1 et sh en sh1 aisni que les numéros de cellule. Par
contre, si dans mon devis je ne choisis qu'un article et il s'agit du 15°,
j'ai quatorze lignes blanches avant. Donc, en pompant sur le forum, j'ai
essayé d'adapter un code qui permet d'envoyer les valeurs dans la première
ligne vide mais .....mes compétences sont très limitées visiblement.(num =
Sheets("devis").Range("b65536").End(xlUp).Row ...)
Merci
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing Then
Ctr = Ctr + 1
End If
End If
Next
If Ctr <> 0 Then
With Sheets("devis").Range("e24")
.Value = Ctr
With Sheets("devis").Range("b24")
.Offset(0, 0).Value = "marteau"
End With
End With
End If
Sheets("devis").Select
End Sub
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433f9b67$0$17239$8fcfb975@news.wanadoo.fr...
bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu écris,
"Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 , il ne faut pas
écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+
Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi
de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
Bonjour et merci pour ta réponse,
J'ai effectivement choisi ton deuxième code avec IF. Ci-joint le résultat.
Par contre, j'ai 15 articles donc, j'ai recopié ce code pour chacun en
modifiant ctr en ctr1 et sh en sh1 aisni que les numéros de cellule. Par
contre, si dans mon devis je ne choisis qu'un article et il s'agit du 15°,
j'ai quatorze lignes blanches avant. Donc, en pompant sur le forum, j'ai
essayé d'adapter un code qui permet d'envoyer les valeurs dans la première
ligne vide mais .....mes compétences sont très limitées visiblement.(num =
Sheets("devis").Range("b65536").End(xlUp).Row ...)
Merci
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing Then
Ctr = Ctr + 1
End If
End If
Next
If Ctr <> 0 Then
With Sheets("devis").Range("e24")
.Value = Ctr
With Sheets("devis").Range("b24")
.Offset(0, 0).Value = "marteau"
End With
End With
End If
Sheets("devis").Select
End Sub
"anonymousA" a écrit dans le message de news:
433f9b67$0$17239$bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis" et
V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu écris,
"Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 , il ne faut pas
écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et ainsi
de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
je ne vois pas bien ce que tu veux obtenir. Essaye d'expliquer plus , car
j'ai le sentiment que ton problème n'est pas complexe mais que c'est le
contexte que j'ai du mal à saisir.
A+Bonjour et merci pour ta réponse,
J'ai effectivement choisi ton deuxième code avec IF. Ci-joint le
résultat.
Par contre, j'ai 15 articles donc, j'ai recopié ce code pour chacun en
modifiant ctr en ctr1 et sh en sh1 aisni que les numéros de cellule. Par
contre, si dans mon devis je ne choisis qu'un article et il s'agit du
15°, j'ai quatorze lignes blanches avant. Donc, en pompant sur le forum,
j'ai essayé d'adapter un code qui permet d'envoyer les valeurs dans la
première ligne vide mais .....mes compétences sont très limitées
visiblement.(num = Sheets("devis").Range("b65536").End(xlUp).Row ...)
Merci
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
If Ctr <> 0 Then
With Sheets("devis").Range("e24")
.Value = Ctr
With Sheets("devis").Range("b24")
.Offset(0, 0).Value = "marteau"
End With
End With
End If
Sheets("devis").Select
End Sub
"anonymousA" a écrit dans le message de news:
433f9b67$0$17239$bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis"
et V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu
écris, "Par contre est ce possible qu'il ne prenne pas en compte les
lignes dont la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 ,
il ne faut pas écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et
ainsi de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
je ne vois pas bien ce que tu veux obtenir. Essaye d'expliquer plus , car
j'ai le sentiment que ton problème n'est pas complexe mais que c'est le
contexte que j'ai du mal à saisir.
A+
Bonjour et merci pour ta réponse,
J'ai effectivement choisi ton deuxième code avec IF. Ci-joint le
résultat.
Par contre, j'ai 15 articles donc, j'ai recopié ce code pour chacun en
modifiant ctr en ctr1 et sh en sh1 aisni que les numéros de cellule. Par
contre, si dans mon devis je ne choisis qu'un article et il s'agit du
15°, j'ai quatorze lignes blanches avant. Donc, en pompant sur le forum,
j'ai essayé d'adapter un code qui permet d'envoyer les valeurs dans la
première ligne vide mais .....mes compétences sont très limitées
visiblement.(num = Sheets("devis").Range("b65536").End(xlUp).Row ...)
Merci
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
If Ctr <> 0 Then
With Sheets("devis").Range("e24")
.Value = Ctr
With Sheets("devis").Range("b24")
.Offset(0, 0).Value = "marteau"
End With
End With
End If
Sheets("devis").Select
End Sub
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433f9b67$0$17239$8fcfb975@news.wanadoo.fr...
bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis"
et V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu
écris, "Par contre est ce possible qu'il ne prenne pas en compte les
lignes dont la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 ,
il ne faut pas écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+
Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et
ainsi de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
je ne vois pas bien ce que tu veux obtenir. Essaye d'expliquer plus , car
j'ai le sentiment que ton problème n'est pas complexe mais que c'est le
contexte que j'ai du mal à saisir.
A+Bonjour et merci pour ta réponse,
J'ai effectivement choisi ton deuxième code avec IF. Ci-joint le
résultat.
Par contre, j'ai 15 articles donc, j'ai recopié ce code pour chacun en
modifiant ctr en ctr1 et sh en sh1 aisni que les numéros de cellule. Par
contre, si dans mon devis je ne choisis qu'un article et il s'agit du
15°, j'ai quatorze lignes blanches avant. Donc, en pompant sur le forum,
j'ai essayé d'adapter un code qui permet d'envoyer les valeurs dans la
première ligne vide mais .....mes compétences sont très limitées
visiblement.(num = Sheets("devis").Range("b65536").End(xlUp).Row ...)
Merci
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
If Ctr <> 0 Then
With Sheets("devis").Range("e24")
.Value = Ctr
With Sheets("devis").Range("b24")
.Offset(0, 0).Value = "marteau"
End With
End With
End If
Sheets("devis").Select
End Sub
"anonymousA" a écrit dans le message de news:
433f9b67$0$17239$bonjour,
On va quand même commencer par le simple:
au lieu que "ctr" aille se déverser dans ma cellule w1(feuille "schéma"
je souhaiterais qu'elle aille se déverser en B24 de ma feuille "devis"
et V1 en D24 de cette feuille "devis".
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
par contre, excuse moi, mais quelque chose n'est pas clair.Quand tu
écris, "Par contre est ce possible qu'il ne prenne pas en compte les
lignes dont la cellule W est à zéro?", veutx-tu dire que quand ctrl=0 ,
il ne faut pas écrire quoique ce soit dans la feuile devis ?
Si c'est celà, alors
if ctrl<>0 then
with sheets("devis").range("b24")
.value=ctrl
.offset(0,2).value="marteau"
end with
end if
A+Bonjour à tous les matinaux,
Je recherche de l'aide pour faire évoluer ce code que j'ai recopié hier
sur le forum:
1) J'ai créé 15 codes identiques mais en changeant ctrl en ctrl1 et
ainsi de suite car j'ai 15 objets.
2) au lieu que "ctr" aille se déverser dans ma cellule w1(feuille
"schéma" je souhaiterais qu'elle aille se déverser en B24 de ma feuille
"devis" et V1 en D24 de cette feuille "devis".
Par contre est ce possible qu'il ne prenne pas en compte les lignes dont
la cellule W est à zéro?
Merci d'avance
Morganne
Dim Ctr As Integer
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 20) = "marteau" Then
If Not Intersect(sh.TopLeftCell, Range("véhicule")) Is Nothing
Then
Ctr = Ctr + 1
End If
End If
Next
Range("w1") = Ctr
Range("v1") = "marteau"
