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

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
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
1. 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 ?
  
  0
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  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
3. 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.
  
  0
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  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
5. Paullux_1er Messages postés 123 Date d'inscription Statut Membre Dernière intervention 1
  
  Merci ça marche
  
  0

Ecrire dans une des collones de la cellule active

1 réponse

Discussions similaires

Newsletters