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:

Ecrire dans une des collones de la cellule active
Aller à la ligne dans une cellule excel - Guide
Ecrire en gras sur whatsapp - Guide
Excel cellule couleur si condition texte - Guide
Ecrire en miroir - Guide
Verrouiller cellule excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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

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 ?

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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 ?

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.

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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

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

Discussions similaires

Comment taper l'arobase sur un pc hp ?

Enlever le pass. Telecomm. Active

Comment faire le signe au carré ² sur iPhone ?

Formule Excel : "SI" une cellule contient un mot, alors ?