AFFECTER UNE MACRO AVEC CONDITIONS Résolu

Question

Bonjour,
Voici une macro que j'ai faite 


Sub AJOUTERAUPANNIER()
'
' AJOUTERAUPANNIER Macro
'

'
    Range("A25").Select
    Selection.Copy
    Sheets("Facture n&#8734;0").Select
    Range("B20").Select
    ActiveSheet.Paste
End Sub

ce que je voudrais c'est que, si la cellule "A20" est déjà occupée par une valeur 
coller en "B22",si "B22"  est déjà occupée par une valeur coller en "B23"
ainsi de suite jusqu'à "B36"

si quelqu'un peux m'aider à résoudre mon problème

MERCI

pijaku · Answer

Salut,
Peut être quelque chose comme ceci (à adapter avec tes noms de feuilles):

Dim i As Integer
Sheets("Feuil1").Select
ActiveSheet.Range("A25").Select
Selection.Copy
Sheets("Feuil2").Select
For i = 20 To 36
If ActiveSheet.Range("B" & i) = "" Then
ActiveSheet.Range("B" & i).Select
ActiveSheet.Paste
Exit Sub
End If
Next i

virgile84 · Answer

Merci pijaku
Je teste et je te tiens informé

virgile84 · Answer

Bonjour pijaku 
J'ai testé ta macro et j'ai juste enlever le début et  ça marche à merveille 
merci encore tu m'as enlevé une épine du pied
voici la modification à partager

Sub AUPANNIER()
'
' AUPANNIER Macro
'

'
Dim i As Integer

ActiveSheet.Range("A25").Select
Selection.Copy
Sheets("Facture n°0").Select
For i = 20 To 36
If ActiveSheet.Range("B" & i) = "" Then
ActiveSheet.Range("B" & i).Select
ActiveSheet.Paste
Exit Sub
End If
Next i

End Sub

AFFECTER UNE MACRO AVEC CONDITIONS

3 réponses

Votre réponse

Discussions similaires