Ecrire dans une des collones de la cellule active

Paullux_1er Messages postés 123 Date d'inscription Statut Membre Dernière intervention -
Paullux_1er Messages postés 123 Date d'inscription Statut Membre Dernière intervention - 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 ?

Afficher la suite

A voir également:

Ecrire dans une des collones de la cellule active
Écrire plusieurs lignes dans une cellule excel mac - Guide
Ecrire en gras sur whatsapp - Guide
Excel cellule couleur si condition texte - Guide
Comment écrire # sur pc - Guide
Écrire en majuscule - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Paullux_1er Messages postés 123 Date d'inscription Statut Membre Dernière intervention 1

Et si je veux la colonne 4 sans offset mais en absolu ?

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 ?

Paullux_1er Messages postés 123 Date d'inscription Statut Membre Dernière intervention 1

oui c'est exactement ça. désolé si je ne suis pas très clair. mes cours de vba remonte à très longtemps.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Paullux_1er Messages postés 123 Date d'inscription Statut Membre Dernière intervention 1

Merci ça marche

Discussions similaires

Enlever le pass. Telecomm. Active

Message ne s'envoie pas données mobiles Redmi

Votre réponse

Discussions similaires