Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Variable ( bis )

Variable ( bis )

9 réponses
Avatar
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=21

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
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
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" a écrit dans le message de groupe de discussion :
#
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
Avatar
Jacky
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" a écrit dans le message de news:
%
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


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


"Jacky" a écrit dans le message de groupe de 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" a écrit dans le message de news:
%
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


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

--
Salutations
JJ


"MichDenis" a écrit dans le message de news:

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


"Jacky" a écrit dans le message de groupe de 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" a écrit dans le message de news:
%
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






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

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

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

Merci encore à vous deux

Cordialement

Infogroup

"Jacky" a écrit dans le message de
news:
Bah ! je n'ai pas changé la donne.
;o)

--
Salutations
JJ


"MichDenis" a écrit dans le message de news:

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


"Jacky" a écrit dans le message de groupe de
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" a écrit dans le message de news:
%
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










Avatar
Jacky
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" a écrit dans le message de news:

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

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




Avatar
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 ....;-)))
Avatar
Jacky
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" a écrit dans le message de news:
%
>| 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 ....;-)))