Macro pr renseigner deux colonnes...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro pour renseigner deux colonnes....

voir fichier c'est plus simple

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian.

 

[Christian0258]

Re : Macro pr renseigner deux colonnes...

Re le forum, Jean-Marcel,

En colonne A (de A2) il faut inscrire le contenu de R1
et colonne B (de B2) il faut inscrire le contenu de S1

SI et seulement si, la colonne C (de C2) est renseignée.

Merci pour ton aide
a+
Christian

 

[Papou-net]

Re : Macro pr renseigner deux colonnes...

Bonsoir Christian0258,

Formules à saisir en A2 et B2 :

A2 :

=SI(NBVAL(C2:H2)=6;R$1;"")

B2 :

=SI(NBVAL(C2:H2)=6;S$1;"")

Puis recopie vers le bas sur ces 2 colonnes.

Espérant avoir répondu.

Cordialement.

 

[Christian0258]

Re : Macro pr renseigner deux colonnes...

Re, le forum, Papou-net,

Merci pour ton aide, je garde ta formule de côté, mais je souhaite plutôt une macro.

Bien à toi,
a+
Christian

 

[Papou-net]

Re : Macro pr renseigner deux colonnes...

Qu'à celà ne tienne, moi aussi je préfère les macros (d'autant que j'avais mal lu le titre).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Extract")
  For n = 2 To 41
    If Not .Cells(n, 3) = "" Then
      .Cells(n, 1) = .Range("R1")
      .Cells(n, 2) = .Range("S1")
      Else
      .Cells(n, 1) = ""
      .Cells(n, 2) = ""
    End If
  Next
End With

End Sub

Bonne soirée.

 

[Staple1600]

Re : Macro pr renseigner deux colonnes...

Bonsoir


macro demandée, macro livrée (frais du jour)

Sub Macro1()
Dim x As Long, y, p As Range
Set p = ActiveSheet.[C2].CurrentRegion
x = p.Rows.Count
y = Application.CountA([C2].Resize(x))
If x = y Then
p.Offset(, -2).Resize(, 1) = [R1]
p.Offset(, -1).Resize(, 1) = [S1]
End If
End Sub

Houps, désolé point vu passer Papou-net (bonsoir), bing collision

 

[Papou-net]

Re : Macro pr renseigner deux colonnes...

Pas grave, JM,

Autre personnage, autre langage : ton code est intéressant car moins "basique" que le mien.
Il faut que je l'analyse de plus près pour le comprendre.

Bonne soirée.

Cordialement.

 

[Christian0258]

Re : Macro pr renseigner deux colonnes...

Bonjour à tout le forum,

Merci à vous, Papou_net et Staple 1600, c'est impeccable.

Bien à vous,

a+
Christian