Variable ( bis )

Le
Infogroup
Re-bonjour à tous,

par rapport à ce matin ma solution ne marche plus et je bute de nouveau sur
un problème similaire.
Je veux utiliser la variable "Compteur" dans ma formule.
Voici mon code :

Sub Essais()

Dim Compteur As Integer

Sheets("Feuil1").Select

Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count

For Each c In Range("C7:C" & [C65000].End(xlUp).Row)
c.Select
If c.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next

Range("A3").Formula = "=COUNTA(C7:C" & Y1 + 6 & ") &"" Dont "" &
COUNTA(B7:B" & Y1 + 6 & ") &"" en répertoire et "" &COUNTA(F7:F" & Y1 + 6 &
") - Compteur & "" en classeur"""

End Sub


En fait, compteur!

Si je mets 21 dans la formule, pas de problème
Si je mets le nom de la variable à la place, le résultat est une erreur
#NOM?

Merci pour votre aide

Cdl

Infogroup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #18869411
Range("A3").Formula = "=COUNTA(C7:C" & _
Y1 + 6 & ") & "" Dont "" & COUNTA(B7:B" & _
Y1 + 6 & ") & "" en répertoire et "" & COUNTA(F7:F" & _
Y1 + 6 & ")" & "-" & Compteur & " & "" en classeur."""




"Infogroup" #
Re-bonjour à tous,

par rapport à ce matin ma solution ne marche plus et je bute de nouveau sur
un problème similaire.
Je veux utiliser la variable "Compteur" dans ma formule.
Voici mon code :

Sub Essais()

Dim Compteur As Integer

Sheets("Feuil1").Select

Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count

For Each c In Range("C7:C" & [C65000].End(xlUp).Row)
c.Select
If c.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next

Range("A3").Formula = "=COUNTA(C7:C" & Y1 + 6 & ") &"" Dont "" &
COUNTA(B7:B" & Y1 + 6 & ") &"" en répertoire et "" &COUNTA(F7:F" & Y1 + 6 &
") - Compteur & "" en classeur"""

End Sub


En fait, compteur!

Si je mets 21 dans la formule, pas de problème
Si je mets le nom de la variable à la place, le résultat est une erreur
#NOM?

Merci pour votre aide

Cdl

Infogroup
Jacky
Le #18869401
Bonjour,
Bien que je ne saisisse pas la finalité
'----------------
Sub Essais()
Dim Compteur As Integer
Sheets("Feuil1").Select
Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count + 6 ' ****modifié
For Each C In Range("C7:C" & [C65000].End(xlUp).Row)
' C.Select *** inutile
If C.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next
Range("A3") = Application.CountA(Range("C7:C" & Y1)) & " dont " & _
Application.CountA(Range("B7:B" & Y1)) & " en répertoire et " & _
Application.CountA(Range("F7:F" & Y1)) - Compteur & " en classeur."

End Sub
'-----------------------
--
Salutations
JJ


"Infogroup" %
Re-bonjour à tous,

par rapport à ce matin ma solution ne marche plus et je bute de nouveau
sur un problème similaire.
Je veux utiliser la variable "Compteur" dans ma formule.
Voici mon code :

Sub Essais()

Dim Compteur As Integer

Sheets("Feuil1").Select

Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count

For Each c In Range("C7:C" & [C65000].End(xlUp).Row)
c.Select
If c.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next

Range("A3").Formula = "=COUNTA(C7:C" & Y1 + 6 & ") &"" Dont "" &
COUNTA(B7:B" & Y1 + 6 & ") &"" en répertoire et "" &COUNTA(F7:F" & Y1 + 6
& ") - Compteur & "" en classeur"""

End Sub


En fait, compteur!

Si je mets 21 dans la formule, pas de problème
Si je mets le nom de la variable à la place, le résultat est une erreur
#NOM?

Merci pour votre aide

Cdl

Infogroup


MichDenis
Le #18869391
Ben si tu changes la donne du problème ... ;-))


"Jacky" e#
Bonjour,
Bien que je ne saisisse pas la finalité
'----------------
Sub Essais()
Dim Compteur As Integer
Sheets("Feuil1").Select
Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count + 6 ' ****modifié
For Each C In Range("C7:C" & [C65000].End(xlUp).Row)
' C.Select *** inutile
If C.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next
Range("A3") = Application.CountA(Range("C7:C" & Y1)) & " dont " & _
Application.CountA(Range("B7:B" & Y1)) & " en répertoire et " & _
Application.CountA(Range("F7:F" & Y1)) - Compteur & " en classeur."

End Sub
'-----------------------
--
Salutations
JJ


"Infogroup" %
Re-bonjour à tous,

par rapport à ce matin ma solution ne marche plus et je bute de nouveau
sur un problème similaire.
Je veux utiliser la variable "Compteur" dans ma formule.
Voici mon code :

Sub Essais()

Dim Compteur As Integer

Sheets("Feuil1").Select

Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count

For Each c In Range("C7:C" & [C65000].End(xlUp).Row)
c.Select
If c.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next

Range("A3").Formula = "=COUNTA(C7:C" & Y1 + 6 & ") &"" Dont "" &
COUNTA(B7:B" & Y1 + 6 & ") &"" en répertoire et "" &COUNTA(F7:F" & Y1 + 6
& ") - Compteur & "" en classeur"""

End Sub


En fait, compteur!

Si je mets 21 dans la formule, pas de problème
Si je mets le nom de la variable à la place, le résultat est une erreur
#NOM?

Merci pour votre aide

Cdl

Infogroup


Jacky
Le #18869541
Bah ! je n’ai pas changé la donne.
;o)

--
Salutations
JJ


"MichDenis"
Ben si tu changes la donne du problème ... ;-))


"Jacky" :
e#
Bonjour,
Bien que je ne saisisse pas la finalité
'----------------
Sub Essais()
Dim Compteur As Integer
Sheets("Feuil1").Select
Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count + 6 '
****modifié
For Each C In Range("C7:C" & [C65000].End(xlUp).Row)
' C.Select *** inutile
If C.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next
Range("A3") = Application.CountA(Range("C7:C" & Y1)) & " dont " & _
Application.CountA(Range("B7:B" & Y1)) & " en répertoire et " & _
Application.CountA(Range("F7:F" & Y1)) - Compteur & " en classeur."

End Sub
'-----------------------
--
Salutations
JJ


"Infogroup" %
Re-bonjour à tous,

par rapport à ce matin ma solution ne marche plus et je bute de nouveau
sur un problème similaire.
Je veux utiliser la variable "Compteur" dans ma formule.
Voici mon code :

Sub Essais()

Dim Compteur As Integer

Sheets("Feuil1").Select

Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count

For Each c In Range("C7:C" & [C65000].End(xlUp).Row)
c.Select
If c.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next

Range("A3").Formula = "=COUNTA(C7:C" & Y1 + 6 & ") &"" Dont "" &
COUNTA(B7:B" & Y1 + 6 & ") &"" en répertoire et "" &COUNTA(F7:F" & Y1 +
6
& ") - Compteur & "" en classeur"""

End Sub


En fait, compteur!

Si je mets 21 dans la formule, pas de problème
Si je mets le nom de la variable à la place, le résultat est une erreur
#NOM?

Merci pour votre aide

Cdl

Infogroup






MichDenis
Le #18869761
| Bah ! je n’ai pas changé la donne.

Tu veux dire au mieux le résultat !
;-))
Infogroup
Le #18869751
Merci à Jacky et MichDenis,

changée ou pas, cette fois la "donne" est bonne.

Merci encore à vous deux

Cordialement

Infogroup

"Jacky" news:
Bah ! je n'ai pas changé la donne.
;o)

--
Salutations
JJ


"MichDenis"
Ben si tu changes la donne du problème ... ;-))


"Jacky" discussion :
e#
Bonjour,
Bien que je ne saisisse pas la finalité
'----------------
Sub Essais()
Dim Compteur As Integer
Sheets("Feuil1").Select
Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count + 6 '
****modifié
For Each C In Range("C7:C" & [C65000].End(xlUp).Row)
' C.Select *** inutile
If C.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next
Range("A3") = Application.CountA(Range("C7:C" & Y1)) & " dont " & _
Application.CountA(Range("B7:B" & Y1)) & " en répertoire et " & _
Application.CountA(Range("F7:F" & Y1)) - Compteur & " en classeur."

End Sub
'-----------------------
--
Salutations
JJ


"Infogroup" %
Re-bonjour à tous,

par rapport à ce matin ma solution ne marche plus et je bute de nouveau
sur un problème similaire.
Je veux utiliser la variable "Compteur" dans ma formule.
Voici mon code :

Sub Essais()

Dim Compteur As Integer

Sheets("Feuil1").Select

Y1 = Range("B7:B" & [B65000].End(xlUp).Row).Rows.Count

For Each c In Range("C7:C" & [C65000].End(xlUp).Row)
c.Select
If c.Interior.ColorIndex = 8 Then
Compteur = Compteur + 1
End If
Next

Range("A3").Formula = "=COUNTA(C7:C" & Y1 + 6 & ") &"" Dont "" &
COUNTA(B7:B" & Y1 + 6 & ") &"" en répertoire et "" &COUNTA(F7:F" & Y1 +
6
& ") - Compteur & "" en classeur"""

End Sub


En fait, compteur!

Si je mets 21 dans la formule, pas de problème
Si je mets le nom de la variable à la place, le résultat est une erreur
#NOM?

Merci pour votre aide

Cdl

Infogroup










Jacky
Le #18870021
Ben, non, le résultat est le même
D'un coté de la mare la formule dans la cellule, de l'autre le résultat
directement dans la cellule.
Dans les deux cas on peut se passer du Y1 + 6

--
Salutations
JJ


"MichDenis"
| Bah ! je n’ai pas changé la donne.

Tu veux dire au mieux le résultat !
;-))




MichDenis
Le #18870291
>| Bah ! je n’ai pas changé la donne.



Tu veux dire au mieux le résultat !



Moi, je pensais que ce que j'avais écrit disais simplement
que tu avais modifié la forme mais pas le résultat.

Bah ! je n’ai pas changé la donne.
tu veux dire au mieux tu n'as pas changé le résultat !

is it better ?
ce n'est pas cette année que je serais admis à l'académie
française .... je suis trop jeune je suppose ....;-)))
Jacky
Le #18870551
Bon, disons que....
il y a démonstration de deux manière différentes de faire pour arrivé à un
resultat identique
.... je suis trop jeune je suppose


Bien que j'ignore ton année de naissance
Il est vrai qu'il vaut mieux ne pas faire partie de leur moyenne d'âge(même
au format Excel)
;o)
--
Salutations
JJ


"MichDenis" %
>| Bah ! je n’ai pas changé la donne.

Tu veux dire au mieux le résultat !



Moi, je pensais que ce que j'avais écrit disais simplement
que tu avais modifié la forme mais pas le résultat.

Bah ! je n’ai pas changé la donne.
tu veux dire au mieux tu n'as pas changé le résultat !

is it better ?
ce n'est pas cette année que je serais admis à l'académie
française .... je suis trop jeune je suppose ....;-)))





Publicité
Poster une réponse
Anonyme