Sujet Précédent Sujet Suivant

Ecrire dans une des collones de la cellule active

Fermé
Paullux_1er Messages postés 122 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 28 janvier 2020 - Modifié le 23 janv. 2018 à 17:48
Paullux_1er Messages postés 122 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 28 janvier 2020 - 24 janv. 2018 à 09:56
Bonjour,

J'ai écrit ceci : 
Sub DateAttrib_click()

Dim Ligne As Integer

Ligne = ActiveCell.Row

MyCell = Cells(Ligne, 4).Value

If (MyCell = "") Then
MyCell = Date
Else
MyCell = ""
End If

End Sub


Je veux écrie dans la 4eme colonne de la cellule active, et cela ne marche pas, pourquoi ?

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 janv. 2018 à 17:54
Bonjour,
Si j'ai bien compris 
Sub DateAttrib_click()
    Dim MyCell As Range
    
    Set MyCell = ActiveCell.Offset(0, 4)        'valeur cellule meme ligne et 4 colonnes plus loin

    If MyCell = "" Then
        MyCell = Date
    Else
        MyCell = ""
    End If

End Sub
0
Paullux_1er Messages postés 122 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 28 janvier 2020 1
Modifié le 23 janv. 2018 à 18:10
Et si je veux la colonne 4 sans offset mais en absolu ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 janv. 2018 à 07:49
Bonjour,
Je veux écrie dans la 4eme colonne de la cellule active
C'est bien vous qui avez ecrit ceci ???
Donc je suppose(itoire) que vous voulez ecrire dans la cellules colonne D meme ligne ?
0
Paullux_1er Messages postés 122 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 28 janvier 2020 1
24 janv. 2018 à 08:34
oui c'est exactement ça. désolé si je ne suis pas très clair. mes cours de vba remonte à très longtemps.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 janv. 2018 à 08:56
Re, 
Sub DateAttrib_click()
    Dim MyCell As Range
    
    Set MyCell = Cells(ActiveCell.Row, 4)       'valeur cellule meme ligne et colonne D

    If MyCell = "" Then
        MyCell = Date
    Else
        MyCell = ""
    End If

End Sub
0
Paullux_1er Messages postés 122 Date d'inscription vendredi 10 février 2017 Statut Membre Dernière intervention 28 janvier 2020 1
24 janv. 2018 à 09:56
Merci ça marche
0

Discussions similaires

Excel si cellule contient texte alors...
caba_44 -
RENOU -

41 réponses
Enlever le pass. Telecomm. Active
Lisa -
Yves -

3 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
formule de calcule
daniel4577 -
Gyrus -

1 réponse
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses