Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ou est l'erreur????????

ou est l'erreur????????

7 réponses
Avatar
damgui
bonjour
mon scrpit marche pas
je trouve pas lerreur
merci



ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _
"=Données!C" & Lig & ";'base général'!" & ActiveCell.Address & ";"""")"
Signaler un problème avec ce contenu

7 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
isabelle
bonjour,

la commande retourne bien la formule suivante si lgn = 2 et que la cellule active est A1:

=SI('base général'!B1=Données!C2;'base général'!$A$1;"")

as tu un message d'erreur ?

isabelle


bonjour
mon scrpit marche pas
je trouve pas lerreur
merci



ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _
"=Données!C" & Lig & ";'base général'!" & ActiveCell.Address & ";"""")"




Avatar
Michel Gaboly
Bonsoir,

Quelles est la valeur de la variable Lig ?

En initialisant Lig à 1, la formule marche (à condition d'avoir 2 feu illes nommées "Base général" et "Données", bien sûr).

bonjour
mon scrpit marche pas
je trouve pas lerreur
merci



ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell .Row & _
"=Données!C" & Lig & ";'base général'!" & ActiveCell.Address & ";"""")"





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
damgui
Bonjour
voilaj ai une formle qui marche que dans la colonne L

ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _

"=Données!C" & Lig & ";'base général'!L" & ActiveCell.Row & ";"""")"



COMMENT REMPLACER LE "L" par la collonne active,

ex si je suisi en L c est L actif

si c est d c est d



merci de votre aide
Avatar
damgui
voici le script a origine

Private Sub REINITIALISE_Click() le code par :


Dim c As Range, Lig As Integer

For Each c In Sheets("Données").Range("C3:C65536")

If c.Value = "" Then Exit For

Tablo = Split(c.Value)

If UCase(Tablo(0)) = UCase(ActiveSheet.Name) Then

Lig = c.Row

Exit For

End If

Next c

ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _

"=Données!C" & Lig & ";'base général'!L" & ActiveCell.Row & ";"""")"

cellule.Hide

Unload Me
Avatar
isabelle
comme ça, ça va ?

ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _
"=Données!C" & lig & ";'base général'!" & Columns(ActiveCell.Column).Address & ";"""")"

isabelle

Bonjour
voilaj ai une formle qui marche que dans la colonne L

ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _

"=Données!C" & Lig & ";'base général'!L" & ActiveCell.Row & ";"""")"



COMMENT REMPLACER LE "L" par la collonne active,

ex si je suisi en L c est L actif

si c est d c est d



merci de votre aide





Avatar
Philippe VECK
bonjour

faudrait pas mettre If à la place de si ?

"damgui" a écrit dans le message de news:
451833f5$0$25837$
bonjour
mon scrpit marche pas
je trouve pas lerreur
merci



ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell.Row & _
"=Données!C" & Lig & ";'base général'!" & ActiveCell.Address & ";"""")"



Avatar
Michel Gaboly
Bonjour,

Non, pas avec FormulaLocal, qui permet justement d'utiliser les fonctions dans la langue de la version d'Excel utilisée.

bonjour

faudrait pas mettre If à la place de si ?

"damgui" a écrit dans le message de news:
451833f5$0$25837$
bonjour
mon scrpit marche pas
je trouve pas lerreur
merci



ActiveCell.FormulaLocal = "=SI('base général'!B" & ActiveCell .Row & _
"=Données!C" & Lig & ";'base général'!" & ActiveCell.Address & ";"""")"







--
Cordialement,

Michel Gaboly
www.gaboly.com