Dans une macro, selectionner une cellule avec la ligne en variable

Résolu/Fermé
Jeeprock Messages postés 33 Date d'inscription mardi 26 mars 2013 Statut Membre Dernière intervention 29 septembre 2022 - 27 sept. 2019 à 00:31
Jeeprock Messages postés 33 Date d'inscription mardi 26 mars 2013 Statut Membre Dernière intervention 29 septembre 2022 - 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






A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 sept. 2019 à 17:58
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?????????????????????????????????
0
Jeeprock Messages postés 33 Date d'inscription mardi 26 mars 2013 Statut Membre Dernière intervention 29 septembre 2022 5
Modifié le 27 sept. 2019 à 18:41
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é.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 sept. 2019 à 07:13
Bonjour,

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