Dans une macro, selectionner une cellule avec la ligne en variable [Résolu]

Messages postés
29
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
28 septembre 2019
- - Dernière réponse : Jeeprock
Messages postés
29
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
28 septembre 2019
- 28 sept. 2019 à 14:24
Bonjour,
je cherche depuis des heures à sélectionner une cellule dont la référence à la ligne se situe dans une autre cellule...
la valeur en N14 varie de 1à100.
Je veux aller inscrire un "X" sur la ligne pointé par N14 dans la colonne "G".
J'ai beau essayer les solutions trouvées sur internet, rien n'y fait.

En résumé:
Lorsque la cellule "N14" contient la valeur 10, je veux mettre un "X" dans "G10"

J'ai essayé ce code dans une macro sans succès...
Quelqu'un peut-il m'aider ?
Merci !


Sub Macro2()

' Macro2 Macro

Range("G" & N14).Select

ActiveCell.FormulaR1C1 = "X"


End Sub






Afficher la suite 

1 réponse

Messages postés
14796
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177
0
Merci
Bonjour,

Sub X_Colonne_G()
    With Worksheets("feuil1")
        If IsNumeric(.Range("N14")) Then
            If .Range("N14") > 0 And .Range("N14") < 101 Then
                .Range("G" & .Range("N14")) = "X"
            End If
        End If
    End With
End Sub


A quoi sert la selection?????????????????????????????????
Jeeprock
Messages postés
29
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
28 septembre 2019
2 -
Bonjour, et merci de me repondre.
En fait j'ai pris exemple sur le code généré par l'enregistrement de la macro.
et j'en ai déduit que je devais sélectionner la cellule dans laquelle je voulais inscrire un "X"
Mais depuis j'ai cherché encore et j'ai trouvé une façon de faire qui fonctionne.
En définissant une variable...et en transférant la valeur de la cellule M14 dans cette variable.


Avant cela, le problème était que je ne pouvais pas utiliser directement la valeur de m14 pour concatener avec "G"

Dim ligne As Byte
ligne = Range("m14").Value
Range("G" & ligne).Value = "X"

Le but de l'exercice:
Lors de l'inscription des membres d'un club, sur une feuille séparée il y a un tableau des membres potentiels (de l'année précédente) contenant le nom et le no de téléphone puis une colonne "Cotisation payée"
Sur l'autre feuille, un modèle de reçu avec liste déroulante qui va chercher les noms et no de téléphone et un bouton "Imprimer le reçu" qui exécute la macro. Alors cette macro imprimera le reçu, incrémentera le numéro du reçu, additionnera le montant d'argent et finalement ira inscrire un "X" dans la colonne "Cotisation payée" pour le membre sélectionné.
f894009
Messages postés
14796
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177 -
Bonjour,

Le but de l'exercice:
Oui et que voulez-vous ??
Jeeprock
Messages postés
29
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
28 septembre 2019
2 -
Simplement vous remercier de votre aide et préciser mon projet.
Car dans l'intervalle j'ai trouvé la solution.
Commenter la réponse de f894009